问个比较菜的问题,关于将表中一个字段的值累加后显示在TEXT控件中.

Question

数据库名:RPC.mdb
表名:现金日记帐
字段名:金额
TEXT控件名:text1.text

Answer 1

rs.open "select 金额 from 现金日记帐"do while not rs.eof
    text1.text=text1.text & rs("金额").value
    rs.movenext
loop

Answer 2

do while not rs.eof
    text1.text=Val(text1.text) + rs("金额").value
    rs.movenext
loop

Answer 3

累加=求和吗？
rs.open "select Sum(金额) As Price from 现金日记帐",Con
Me.text1=rs!Price
LZ数据库字段最好不要用汉字 别扭

Answer 4

我说详细点,在FORM里,我放了一个text控件,要求FORM加载后就显示RPC.MDB库里,现金日记帐表的金额字段的求和.
请写完整的代码谢谢.需要用到控件请写出控件名称

Answer 5

'看来你确实有点菜'引用Micrsoft Active Data Object 2.6 Library，下面代码放到窗体的Load事件里Set Rs = New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & "Data Source = D:\RPC.mdb;" & _
"mode=ReadWrite"
cnn.Open
Rs.Open "select Sum(金额) As Price from 现金日记帐", cnntext1.text=rs!Price

Answer 6

漏了一个声明，应该如下:'引用Micrsoft Active Data Object 2.6 Library，下面代码放到窗体的Load事件里Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & "Data Source = D:\RPC.mdb;" & _
"mode=ReadWrite"
cnn.Open
rs.Open "select Sum(金额) As Price from 现金日记帐", cnntext1.text=rs!Price

Answer 7

rs.Open "select Sum(存货量) As Price from 进销存", cnn
如果我想得到的是sum(存货量*进价)即库存成本,该如何表达呢?在线等能人解答!