想实现加载外表后，找出zjhm列和“信息比对“表中身份证号列相同的所有行，然后将筛选出的数据生成到股金客户信息表中去，出现的问题无响应
Dim cmd1 As New SQLCommand
cmd1.C
Dim dt1 As DataTable
Dim Cols1() As String = {"f_zh","f_hm","f_zjhm"}
Dim Cols2() As String = {"账号","户名","身份证号"}
cmd1.CommandText = "SE*LECT * From {tb_ckzhxx}"
dt1 = cmd1.ExecuteReader()
For Each dr1 As DataRow In dt1.DataRows
For Each dr2 As DataRow In DataTables("信息比对").datarows
If DataTables("tb_ckzhxx").Find("f_zjhm = '" & dr2("身份证号") &"'") Is Nothing Then
Dim dr3 As DataRow = DataTables("股金客户信息").AddNew()
For i1 As Integer = 0 To Cols1.Length -1
dr3(Cols2(i1)) = dr1(Cols1(i1))
Next
End If
Next
Next
加好友 
发短信
Post By：2020/10/16 12:01:00 [只看该作者]
