专家好！我有当前表“表1”，包括以下列“A”、“B”、“C”、“D”，需要做以下工作：1）判断“A”、“B”列的某行是否为空值，如果是空值，不做任何事情；
2）分别在“A”、“B”列输入数据，判断“B”列：如果“B”列中的该行数据=“甲”，则在“表2”中的“A”列，找到与当前表“表1”中“A”列对应的行，把“表2”中“M”列对应行的数据赋给“表1”中“C”列对应的行，把“表2”中“N”列对应行的数据赋给“表1”中“D”列对应的行.
否则，如果“B”列中的该行数据=“乙”，则在“表3”中的“A”列，找到与当前表“表1”中“A”列对应的行，把“表3”中“M”列对应行的数据赋给“表1”中“C”列对应的行，把“表3”中“N”列对应行的数据赋给“表1”中“D”列对应的行.
否则，如果“B”列中的该行数据=“丙”，则在“表4”中的“A”列，找到与当前表“表1”中“A”列对应的行，把“表4”中“M”列对应行的数据赋给“表1”中“C”列对应的行，把“表4”中“N”列对应行的数据赋给“表1”中“D”列对应的行.
以下程序编码如何改才能正确？
Select Case e.DataCol.Name
Case "A","D"
If e.DataRow.IsNull("A") OrElse e.DataRow.IsNull("B") Then
e.DataRow("C")=Nothing OrElse e.DataRow("D")=Nothing
Else If e.DataRow.IsNull("B") ="甲" then
Dim de As DataRow = e.DataRow
Dim pe As DataRow = DataTables("表2").Find("A= '" & de("A") & "'")
If pe IsNot Nothing Then
de("C") = pe("M")
de("D") = pe("N")
End If
Else If e.DataRow.IsNull("B") ="乙" then
Dim de As DataRow = e.DataRow
Dim pe As DataRow = DataTables("表3").Find("A= '" & de("A") & "'")
If pe IsNot Nothing Then
de("C") = pe(("M"))
de("D") = pe("N")
End If
Else If e.DataRow.IsNull("B") ="丙" then
Dim de As DataRow = e.DataRow
Dim pe As DataRow = DataTables("表4").Find("A= '" & de("A") & "'")
If pe IsNot Nothing Then
de("C") = pe(("M"))
de("D") = pe("N")
End If
End If
End Select
加好友 
发短信
Post By：2016/6/8 9:02:00 [只看该作者]
