[已解决]看来我得有耐心了，我这个异动明细怎么这么难啊，

fangcheng52013

校长啊，又来麻烦你了，我这个问题发了好几天都没有人理哦，请你帮我看一下，谢谢
异动明细表，点开会弹出一个窗口  库存查询
我在产品代码里输入6939035361173这个代码点查询按钮，他们把目前结存显示出来，并在   异动明细表   对应填写进去，
还要按日期进行排序显示

最佳答案

月排行榜 / 总排行榜

mxg825

2012-8-17 13:01

1. Private Sub TextBox1_AfterUpdate()
   
2.   Dim mydata As New Data查询
   
3.   Dim sql As String, arr, X, y
   
4.   Dim str2 As String
   
5.   If mydata.是否存在("产品资料", "商品代码", TextBox1) = False Then
   
6.    MsgBox "该入库单号码不存在"
   
7.    Exit Sub
   
8.   Else
   
9.   Application.EnableEvents = False
   
10.     sql = "select A.商品代码,A.商品名称,A.商品规格,A.单位,B.结存数量 from [产品资料] as A  LEFT JOIN " & _
    
11.         "(SELECT 商品代码,SUM(数量) AS 结存数量 from (  " & _
    
12.                  "SELECT 商品代码,入库数量 AS 数量 from [RuKu]" & _
    
13.                       " Union ALL " & _
    
14.                  "SELECT 商品代码,(-出库数量) AS 数量 from [ChuKu]" & _
    
15.         ") GROUP BY 商品代码) as B" & _
    
16.    " ON A.商品代码=B.商品代码 where A.商品代码='" & TextBox1 & "' "
    
17.    arr = mydata.筛选结果(sql)
    
18.    TextBox1 = arr(0, 0)
    
19.    TextBox2 = arr(1, 0)
    
20.    TextBox3 = arr(2, 0)
    
21.    TextBox4 = arr(3, 0)
    
22.    TextBox5 = arr(4, 0)
    
23. Application.EnableEvents = True
    
24.   End If
    
25. End Sub

复制代码

跳转到最佳答案楼层

mxg825

要用 到 左联接  SUM 汇总 ...等 SQL 语句！
现在下班了 明天再帮你写一个！

fangcheng52013

mxg825 发表于 2012-8-16 17:57
要用 到 左联接  SUM 汇总 ...等 SQL 语句！
现在下班了 明天再帮你写一个！

好的，非常感谢！！！！！！！！！！！！！非常感谢

mxg825

1. Private Sub TextBox1_AfterUpdate()
   
2.   Dim mydata As New Data查询
   
3.   Dim sql As String, arr, X, y
   
4.   Dim str2 As String
   
5.   If mydata.是否存在("产品资料", "商品代码", TextBox1) = False Then
   
6.    MsgBox "该入库单号码不存在"
   
7.    Exit Sub
   
8.   Else
   
9.   Application.EnableEvents = False
   
10.     sql = "select A.商品代码,A.商品名称,A.商品规格,A.单位,B.结存数量 from [产品资料] as A  LEFT JOIN " & _
    
11.         "(SELECT 商品代码,SUM(数量) AS 结存数量 from (  " & _
    
12.                  "SELECT 商品代码,入库数量 AS 数量 from [RuKu]" & _
    
13.                       " Union ALL " & _
    
14.                  "SELECT 商品代码,(-出库数量) AS 数量 from [ChuKu]" & _
    
15.         ") GROUP BY 商品代码) as B" & _
    
16.    " ON A.商品代码=B.商品代码 where A.商品代码='" & TextBox1 & "' "
    
17.    arr = mydata.筛选结果(sql)
    
18.    TextBox1 = arr(0, 0)
    
19.    TextBox2 = arr(1, 0)
    
20.    TextBox3 = arr(2, 0)
    
21.    TextBox4 = arr(3, 0)
    
22.    TextBox5 = arr(4, 0)
    
23. Application.EnableEvents = True
    
24.   End If
    
25. End Sub

复制代码

fangcheng52013

mxg825 发表于 2012-8-17 13:01

你好，谢谢你在百忙中抽出时间来帮我写代码，关键的问题在如图片，要是异动明细表里显示出来，

fangcheng52013

mxg825 发表于 2012-8-17 13:01

你好它的明细没有出现在表格里，能否做到，

mxg825

fangcheng52013 发表于 2012-8-17 16:28
你好它的明细没有出现在表格里，能否做到，

可以做到 但不太思理解你的要求！ 请详细说明一下

mxg825

异动日期，应该是 进出货（明细） 流水账吧！

fangcheng52013

mxg825 发表于 2012-8-17 16:41
可以做到 但不太思理解你的要求！ 请详细说明一下

你好，已经整理好，在附件里，

fangcheng52013

mxg825 发表于 2012-8-17 17:22
异动日期，应该是 进出货（明细） 流水账吧！

嗯，就是一个单品的出入流水帐。