求教：关于窗体上文本框显示子窗体中表的某两个字段的乘积和

阳春面

本人最近设计了一个窗体，里面有一个列表框，可以显示当前数据库中的所有表，下面的子窗体可以根据列表框中选中的表名称来打开相应的表。
现在我想在主窗体上设计一个文本框，可以显示当前打开表的“单价”和“数量”2个字段的乘积总和。
并且我想设计个复选框，对当前表进行筛选
具体筛选条件是：所有选中项=表中“添加应用”字段为-1的项
                未选中项=表中“添加应用”字段为0的项
请老师不吝赐教！
另附草稿：
   

Henry D. Sy

阳春面 发表于 2011-12-30 11:45
别提了，那个账号密码忘了。。。我重新申了一个。。。。

1. Private Sub List0_Click()
   
2.     Dim tbln As String
   
3.     Dim bln As Boolean
   
4.     Dim sSQL As String
   
5.     Dim Qdf As DAO.QueryDef
   
6.     Set Qdf = CurrentDb.QueryDefs("A")
   
7.     If Not IsNull(Me.List0) Then
   
8.         tbln = Me.List0
   
9.         If Not IsNull(Me.Check153) Then
   
10.             bln = Me.Check153
    
11.             sSQL = "select * from " & tbln & " Where 添加应用=" & bln
    
12.         Else
    
13.             sSQL = "select * from " & tbln
    
14.         End If
    
15.         Qdf.SQL = sSQL
    
16.         Me.b1.SourceObject = "查询.A"
    
17.         Me.Text151.ControlSource = ""
    
18.         Me.Text151 = DSum("单价*数量", "A")
    
19.     End If
    
20.     Qdf.Close
    
21.     Set Qdf = Nothing
    
22. End Sub
    

复制代码

Henry D. Sy

Henry D. Sy

怎么换账号上来呀，凌晨三点钟不用了，为何？

阳春面

别提了，那个账号密码忘了。。。我重新申了一个。。。。

阳春面

Henry D. Sy 发表于 2011-12-30 12:54

谢谢老师，辛苦了！回去学习消化！呵呵~
自动登录害死人啊。。以后还是自己输入账号密码吧~

至少还有你

学习看看。