以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125422)

--  作者:SZDVYE
--  发布时间:2018/9/28 5:06:00
--  求代码

老大,如何在"扫描表"增加"扫描装箱箱号"时,同时同步"订单表"中的"项号"内容

如下:

1.\'\'扫描表"增加"扫描装箱箱号"时

图片点击可在新窗口打开查看

 

2."订单表"

 

 图片点击可在新窗口打开查看

3.同时同步"订单表"中的"项号"

 

 图片点击可在新窗口打开查看

 

 

 

 


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:desktop.zip

[此贴子已经被作者于2018/9/28 5:22:21编辑过]

--  作者:有点甜
--  发布时间:2018/9/28 8:24:00
--  

datacolchanged事件,写代码

 

If e.DataCol.name = "ID" Then
    Dim drOrder As DataRow
    drOrder = DataTables("订单表").Find("ID = \'" & e.DataRow("ID") & "\'")
    If drOrder IsNot Nothing Then
        If drOrder("状态") = "已经找到" Then
            e.DataRow("状态") = "可能已找到但重复扫"
        Else
            e.DataRow("状态") = "就是它了"
            drOrder("状态") = "已经找到"
        End If
    Else
        e.DataRow("状态") = "不需查验的箱"
    End If
End If