|
发表于 2012-8-17 13:01
|
显示全部楼层
本楼为最佳答案
本帖最后由 mxg825 于 2012-8-17 13:03 编辑
- Private Sub TextBox1_AfterUpdate()
- Dim mydata As New Data查询
- Dim sql As String, arr, X, y
- Dim str2 As String
- If mydata.是否存在("产品资料", "商品代码", TextBox1) = False Then
- MsgBox "该入库单号码不存在"
- Exit Sub
- Else
- Application.EnableEvents = False
- sql = "select A.商品代码,A.商品名称,A.商品规格,A.单位,B.结存数量 from [产品资料] as A LEFT JOIN " & _
- "(SELECT 商品代码,SUM(数量) AS 结存数量 from ( " & _
- "SELECT 商品代码,入库数量 AS 数量 from [RuKu]" & _
- " Union ALL " & _
- "SELECT 商品代码,(-出库数量) AS 数量 from [ChuKu]" & _
- ") GROUP BY 商品代码) as B" & _
- " ON A.商品代码=B.商品代码 where A.商品代码='" & TextBox1 & "' "
- arr = mydata.筛选结果(sql)
- TextBox1 = arr(0, 0)
- TextBox2 = arr(1, 0)
- TextBox3 = arr(2, 0)
- TextBox4 = arr(3, 0)
- TextBox5 = arr(4, 0)
- Application.EnableEvents = True
- End If
- End Sub
复制代码 |
|