写成如下这样子？？？
里面的“【原始地】【目的地】都不为空的综合语句怎么写？
if e.DataRow.IsNull("原始地") = False and e.DataRow.IsNull("目的地") = False then
Dim UPAAA As DataRow = DataTables("地区货币能力表").Find("[地区三字码] ='" & e.DataRow("原始地") & "'")
Dim DWAAA As DataRow = DataTables("地区货币能力表").Find("[地区三字码] ='" & e.DataRow("目的地") & "'")
if UPAAA IsNot Nothing and DWAAA isNot Nothing Then
UP1 = UPAAA("国际国内") and DW1 = DWAAA("国际国内")
..................
Dim UP1 As String = ""
Dim DW1 As String = ""
Select Case e.DataCol.name
Case "原始地","目的地"
If e.DataRow.IsNull("原始地") OrElse e.DataRow.IsNull("目的地") Then
e.DataRow("国际or国内") = Nothing
ElseIf e.DataRow.IsNull("原始地") = False Then
Dim UPAAA As DataRow = DataTables("地区货币能力表").Find("[地区三字码] ='" & e.DataRow("原始地") & "'")
If UPAAA IsNot Nothing Then
UP1 = UPAAA("国际国内")
ElseIf e.DataRow.IsNull("目的地") = False Then
Dim DWAAA As DataRow = DataTables("地区货币能力表").Find("[地区三字码] ='" & e.DataRow("目的地") & "'")
If DWAAA IsNot Nothing Then
DW1 = DWAAA("国际国内")
End If
End If
If UP1 Is Nothing And DW1 Is Nothing Then
e.DataRow("国际or国内") = "全新"
ElseIf UP1 Is Nothing Then
e.DataRow("国际or国内") = "原新"
ElseIf DW1 Is Nothing Then
e.DataRow("国际or国内") = "目新"
ElseIf UP1 = "国内" And DW1 = "国内" Then
e.DataRow("国际or国内") = "国内"
ElseIf UP1 = "国际" OrElse DW1 = "国际" Then
e.DataRow("国际or国内")="国际"
End If
End If
End Select
加好友 
发短信
Post By：2015/5/4 14:09:00 [只看该作者]
此主题相关图片如下：12312321321.jpg