| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 更新 (http://www.foxtable.com/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 -- 代码看不出有什么问题，做个例子发上来看看 |