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 = "S * From {tb_ckzhxx} where f_zjhm in ('" & DataTables("信息比对").GetComboListString("身份证号").Replace("|","','") & "')"
dt1 = cmd1.ExecuteReader()
For Each dr1 As DataRow In dt1.DataRows
Dim dr3 As DataRow = DataTables("股金客户信息").AddNew()
For i1 As Integer = 0 To Cols1.Length -1
dr3(Cols2(i1)) = dr1(Cols1(i1))
Tables("股金客户信息").sort = "账号"
Next
Next