If e.DataCol.Name = "GB011" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow = e.DataRow
cmd.C
cmd.CommandText = "SELECT * Fro m {NCJYHxx} Where [GB011] = '" & dr("GB011") & "' OrElse Where [GB026] = '" & dr("GB011") & "' "
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
dr("GS184") = dt.DataRows(0)("GS184")
dr("GS183") = dt.DataRows(0)("GS183")
dr("账户") = dt.DataRows(0)("HGB015")
dr("账号") = dt.DataRows(0)("HGB003")
'dr("GS914") = dt.DataRows(0)("GS914")
'dr("GB022") = dt.DataRows(0)("GB022")
'dr("GB023") = dt.DataRows(0)("GB023")
Else
'否则清除下面列的内容
e.DataRow("GS184") = Nothing
End If
End If
提示OrElse附近语法错误，求专家指点
加好友 
发短信
Post By：2017/10/13 11:30:00 [显示全部帖子]
