|
If e.DataCol.Name = "客户" Then
If e.NewValue Is Nothing Then
e.DataRow("身份证号") = Nothing
e.DataRow("地址") = Nothing
e.DataRow("电话") = Nothing
Else
Dim bms() As String = {"客户1","客户2","客户3","客户4"}
For Each bm As String In bms
Dim dr As DataRow
dr = DataTables(bm).Find("[客户] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("身份证号") = dr("身份证号")
e.DataRow("地址") = dr("地址")
e.DataRow("电话") = dr("电话")
End If
Next
End If
End If
|
加好友 
发短信
Post By：2017/9/4 12:20:00 [显示全部帖子]
