UC知道VB datagrid求和
来源：百度知道 编辑：UC知道 时间：2024/06/23 03:31:36
两列"现金"、"刷卡"求总和到showtxt10.text为什么不行呢？
rs3.Open "select sum(现金) as 现金 ,sum(刷卡) as 刷卡 from stud where 姓名 like '%" & showtxt1.Text & "%'", cn, 3, 3
showtxt10.Text = rs3.Fields("现金") + rs3.fields("刷卡")
rs3.Open "select sum(现金) as 现金 ,sum(刷卡) as 刷卡 from stud where 姓名 like '%" & showtxt1.Text & "%'", cn, 3, 3
showtxt10.Text = rs3.Fields("现金") + rs3.fields("刷卡")
以下这段代码是测试通过的，你对照一下：
（先要在菜单“工程”中“引用” MicroSoft ActiveX Data Object x.x Library（用最新版本））
Private Sub Command1_Click()
Dim sConnString As String
Dim rs3 As ADODB.Recordset
Dim cn As ADODB.Connection
sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\cash.mdb" '换成你的数据库文件名称
Set cn = New ADODB.Connection
cn.Open sConnString
Set rs3 = New ADODB.Recordset
Rem 确认表名是stud，且有字段“姓名”、“现金”、“刷卡”等，窗体上有showtxt1和showtxt10文本框
rs3.Open "select sum(现金) as 现金 ,sum(刷卡) as 刷卡 from stud where 姓名 like '%" & showtxt1.Text & "%'", cn, 3, 3
showtxt10.Text = rs3.Fields("现金") + rs3.Fields("刷卡")
rs3.Close
End Sub
不行指的是什么意思？相加的结果不对还是取不到值
recordset 要先 movefirst 再取值
如果不能叫就转换一下类型