If e.DataCol.Name = "姓名" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow = e.DataRow
cmd.C
cmd.CommandText = "SELECT * From {保险信息库} Where [姓名] = '" & dr("姓名") & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
dr("参保状态") = dt.DataRows(0)("参保状态")
else
dr("参保状态") = Nothing
End if
If e.DataCol.Name = "姓名" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow = e.DataRow
cmd.C
cmd.CommandText = "SELECT * From {劳动合同信息库} Where [姓名] = '" & dr("姓名") & "'"
If dt.DataRows.Count > 0 Then
dr("劳动合同状态") = dt.DataRows(0)("劳动合同状态")
Else
dr("劳动合同状态") = Nothing
End If
End If
两段代码分开来执行，你这个放在一起执行当然会提醒你找不到某列，因为有一个的表的里面没有哪一个列的呀。
加好友 
发短信
Post By：2011/4/21 19:03:00 [显示全部帖子]
