以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期列同步问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106981)

--  作者:恒隆君
--  发布时间:2017/9/19 15:50:00
--  日期列同步问题
在表刀具库位  同步刀具编号  时,入库日期会根据收货日期(在表 刀具收货)更新。
当我同步表时,入库日期又清空了。 没有找到原因

Datacolchanged

\' 入库日期与 刀具收货表的收货日期 同步更新
If e.DataCol.Name = "刀具编号" Then \'如果内容发生变动的是刀具编号列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是刀具编号列的内容为空
        e.DataRow("入库日期") = Nothing \'那么清空此行刀具编号列的内容
    Else
        Dim dr As DataRow
        \'否则在产品表查找同名的刀具编号行,将找到的行赋值给变量dr
        dr = DataTables("刀具收货").Find("[刀具编号] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的刀具编号行,也就是dr不是Nothing
            e.DataRow("入库日期") = dr("收货日期")
        End If
End If
End If
[此贴子已经被作者于2017/9/19 16:08:35编辑过]

--  作者:恒隆君
--  发布时间:2017/9/19 17:28:00
--  
我是从Excel 高速合并 导入的数据
--  作者:有点甜
--  发布时间:2017/9/19 18:53:00
--  

看看是否这个问题? http://www.foxtable.com/webhelp/scr/1380.htm