查找远程数据，并赋值到当前行出错，执行时，数据都出来了，但执行完就退出程序了，不知道什么原因。
Dim cmd As New SQLCommand
Dim dt As DataTable
If e.DataCol.Name ="sfzhm" Then '如果是已结帐列的内容变动
If( e.NewValue.Length<>18) Then
MessageBox.Show("此身份证位数不对!")
End If
cmd.C
cmd.CommandText = "sql"
dt = cmd.ExecuteReader()
If dt.DataRows.count()>=1 Then
For Each dr As DataRow In dt.DataRows
e.DataRow("xingming") =dr("xingming")
e.DataRow("xingbie") =dr("xingbie")
e.DataRow("sfzhm") =dr("sfzhm")
e.DataRow("minzu") =dr("minzu")
e.DataRow("xuejihao") =dr("xuejihao")
e.DataRow("cengci") =dr("cengci")
e.DataRow("nianji") =dr("nianji")
e.DataRow("banji") =dr("banji")
e.DataRow("zhuanye") =dr("zhuanye")
e.DataRow("xuezhi") =dr("xuezhi")
e.DataRow("jgcode") =dr("jgcode")
e.DataRow("xueqi") =dr("xueqi")
e.DataRow("year") =dr("year")
Next
Else
MessageBox.Show("此身份证不在库中!")
e.DataRow("xingming") =""
e.DataRow("xingbie") =""
e.DataRow("sfzhm") =""
e.DataRow("minzu") =""
e.DataRow("xuejihao") =""
e.DataRow("cengci") =""
e.DataRow("nianji") =""
e.DataRow("banji") =""
e.DataRow("zhuanye") =""
e.DataRow("xuezhi") =""
e.DataRow("jgcode") =""
e.DataRow("xueqi") =""
e.DataRow("year") =""
End If
End If
为何红色这一段一执行，程序就自动退出了。找不到原因，求解答。
加好友 
发短信
Post By：2016/8/8 16:57:00 [只看该作者]
