专家坐堂-求解答：查找远程数据，并赋值到当前行出错，执行时，数据都出来了，但执行完就退出程序了Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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")

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