自动输入的实现 有的可以 有的不可以 为什么??? Post By: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