Dim c3 As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim c2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim c1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If c3.value = "" Then
Return
Else
Dim dt As DataTable
Dim cmd As New SQ LCommand
cmd.Connectio nName = c2.value
cmd.Command Text = "SE LECT * From {" & c3.value & "} Where [_Identify] Is Null"
dt = cmd.ExecuteReader()
Dim r As Row
Dim dc As DataCol
Dim t As Table = e.Form.Controls("Table1").Table
Dim i As Integer
Dim nms As String
Dim Book As New XLS.Book(e.Form.Controls("TextBox1").value)
Dim Sheet As XLS.Sheet = Book.Sheets(c1.value)
t.StopRedraw
t.DataTable.DataRows.clear
For i = 0 To Sheet.Cols.count - 1
r = t.AddNew()
r("来源字段") = Sheet(0,i).Value
Next
For Each dc In dt.DataCols
nms = nms & "|" & dc.name
t.cols("接收字段").ComboList = nms
Next
t.ResumeRedraw
End If
加好友 
发短信
Post By：2021/5/20 21:00:00 [只看该作者]
此主题相关图片如下：动画111.gif