|
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("区号")
e.DataRow("邮编") = dr("邮编")
Else
'否则清除区号和邮编两列的内容
e.DataRow("区号") = Nothing
e.DataRow("邮编") = Nothing
End
If
End
If
| 
加好友 
发短信
Post By：2011/12/27 13:06:00 [显示全部帖子]
