请问如何将一个字段值进行想加统计，并将结果帮定在一个文本框里。

Question

我在一个新的窗体中设计一个文本框（txtadd）要求将结果显示在这里。字段名为：收回现金
Private Sub Form_Load() 
    Dim str As String
     Dim sql As String
     Set conn = New ADODB.Connection
     Set rs = New ADODB.Recordset
     conn.Open "provider=microsoft.jet.oledb.4.0;" _
     & "data source=" & App.Path & "\water.mdb;" & "persist security info=false"
     str = "select sum(收回现金) from [配送日志]  "
     rs.CursorLocation = adUseClient
     rs.Open str, conn, adOpenKeyset, adLockPessimistic
     txtadd=.......
  这个怎么表达咯我不晓得怎么写下去咯

Answer 1

str = "select sum(收回现金) as 收回现金 from [配送日志]  "
rs.CursorLocation = adUseClient
rs.Open str, conn, adOpenKeyset, adLockPessimistic
set txtadd.DataSource=rs
txtadd.DataField="收回现金"

Answer 2

或者：   str = "select sum(收回现金) as 收回现金 from [配送日志]  "
   rs.CursorLocation = adUseClient
   rs.Open str, conn, adOpenKeyset, adLockPessimistic
   txtadd = rs.Recordset.Fields("收回现金").Value    '这里的结果同 faysky2()

Answer 3

as 后面的"回收现金" 是你查询所得的结果，也可以说是一个字段。它是 “SUM（回收现金）”的值。只是将你查询所得记录的字段名更该为“回收现金”而已。打个比方：假如你的表 tb 有三个字段 aaa,bbb,ccc，   aaa     bbb    ccc
    1       2      3
    ...   那么这条语句’SELECT aaa AS 甲，bbb AS 乙，ccc AS 丙 FROM tb' 执行后显示在输出控件中时，所显示的就是这样的：   甲      乙      丙
   1       2       3
   ...
  
   说到底就是将该字段的名称该为你想要的名称。