Dim UP1 As String = "" Dim DW1 As String = "" Select Case e.DataCol.name ' 国际or国内 Case "原始地","目的地" If e.DataRow.IsNull("原始地") OrElse e.DataRow.IsNull("目的地") Then e.DataRow("国际or国内") = Nothing Else If e.DataRow.IsNull("原始地") = False Then Dim UPAAA As DataRow UPAAA = DataTables("地区货币能力表").Find("[地区三字码] = '" & e.DataRow("原始地") & "'") If UPAAA IsNot Nothing Then up1 = UPAAA("国际国内特区") End If End If If e.DataRow.IsNull("目的地") = False Then Dim DWAAA As DataRow DWAAA = DataTables("地区货币能力表").Find("[地区三字码] = '" & e.DataRow("目的地") & "'") If DWAAA IsNot Nothing Then DW1 = DWAAA("国际国内特区") End If End If If up1 = "" AndAlso dw1 <> "" Then e.DataRow("国际or国内") = "原新" ElseIf up1 <> "" AndAlso dw1 = "" Then e.DataRow("国际or国内") = "目新" ElseIf UP1 = "国内" AndAlso DW1 = "国内" Then e.DataRow("国际or国内") = "国内" ElseIf UP1 = "国际" OrElse DW1 = "国际" Then e.DataRow("国际or国内") = "国际" Else e.DataRow("国际or国内") = "错误" End If End If End Select
|