Select Case e.DataCol.name
Case "原始地","原始地转标地"
If e.DataRow.IsNull("原始地") Then
e.DataRow("原始地币种能力") = Nothing
ElseIf e.DataRow("原始地转标地") <> Nothing Then ‘’如果【原始地转标地】不为空
Dim mz As DataRow
mz = DataTables("地区货币能力表").Find("[地区三字码] = '" & e.NewValue & "'") '把找到的行 赋值给MZ
If mz IsNot Nothing Then '判断一下MZ是否为空,如果是空,说明没找到对应的行. 不是空就是找到了.
e.DataRow("原始地币种能力") = mz("货币能力表")
End If
ElseIf e.DataRow.IsNull("原始地转标地") Then ’这里否则原始地为空，
Dim lz As DataRow = DataTables("地区货币能力表").Find("[地区三字码] = '" & e.NewValue & "'") '声明一个新的变量为LZ 把FIND查找到的行,存到LZ里.
If lz IsNot Nothing Then '如果LZ不是空,说明有找到对应的行,基本和上面一样的原理
e.DataRow("原始地币种能力") = lz("货币能力表")
Else
e.DataRow("原始地币种能力")="无效地址"
加好友 
发短信
Post By：2015/4/20 13:51:00 [显示全部帖子]
