以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 更新 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173379) |
-- 作者:HANZHIGANG -- 发布时间:2021/11/26 17:28:00 -- 更新 For Each dr As DataRow In DataTables("返单导入").DataRows If dr("上游客户") = Tables("返单上游").Current("上游客户") Then Dim M As String = Tables("返单上游").current("返单上游号") Dim Filter As String = "[上游客户] = \'" & dr("上游客户") & "\' and [商品车] = \'" & dr("商品车") & "\' and ([运输单号] = \'" & dr("运输单号") & "\' or [VIN码] = \'" & dr("VIN码") & "\') And [上游动态] = \'" & dr("上游动态") & "\' and [二次] = false and [返单上游] = false " 1 DataTables("运单管理").SQLReplaceFor("返单上游号", M , filter) 2 DataTables("运单管理").SQLReplaceFor("返单上游", True , filter) 3 DataTables("运单管理").SQLReplaceFor("返单上游操作员", user.Name , filter) 4 DataTables("运单管理").SQLReplaceFor("返单上游日期", Date.Today , filter) End If Next 以上为窗口按键代码,为什么1、2条可实现,3、4条则无效呢?
|
-- 作者:有点蓝 -- 发布时间:2021/11/26 17:43:00 -- 代码看不出有什么问题,做个例子发上来看看 |