参照论坛唐尸三白手的导入excel学习此主题相关图片如下:动画111.gif
为什么会提示没有这个表呢?麻烦老师帮忙看看 谢谢!
以下内容是专门发给有点蓝浏览
SelectedIndexChanged事件代码如下:
Dim c3 As WinForm.ComboBox = e.Form.Controls("ComboBox3")
If c3.value = "" Then
Return
Else
Dim r As Row
Dim dc As DataCol
Dim dt As DataTable = DataTables(c3.value)
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(e.sender.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