以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动输入的实现 有的可以 有的不可以 为什么???  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105064)
--  作者：lighttach
--  发布时间：2017/8/10 19:13:00
--  自动输入的实现 有的可以 有的不可以 为什么???
自动输入的实现 有的可以 有的不可以 为什么???


 If e.DataCol.Name = "托运人" OrElse e.DataCol.Name = "收货人" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[托运人] = \'" & e.DataRow("托运人") & "\' And [收货人] = \'" & e.DataRow("收货人") & "\'"
    dr = DataTables("综合线明细").Find(Filter ) \'在行政区域表查找所输入省市和县市的行
    If dr IsNot Nothing Then \'如果找到
        \'将找到行的区号?邮编内容填入到正在输入的行中.
        e.DataRow("收货人手机号码") = dr("收货人手机号码")
    Else
        \'否则清除区号和邮编两列的内容
        e.DataRow("收货人手机号码") = Nothing
    End If
End If
--  作者：有点甜
--  发布时间：2017/8/10 23:48:00
--  

试试

 

Filter = iif(e.DataRow.isnull("托运人"), "1=1", "[托运人] = \'" & e.datarow("托运人") & "\'") & " And " & iif(e.DataRow.isnull("收货人"), "1=1", "[收货人] = \'" & e.datarow("收货人") & "\'")
--  作者：lighttach
--  发布时间：2017/8/12 10:20:00
--  
大哥  还是不行啊..
--  作者：有点蓝
--  发布时间：2017/8/12 10:22:00
--  
截图或者上传例子说明，哪些可以那些不行