Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
e.Form.Controls("Label4").text = dlg.FileName
If Connections.Contains("test") Then
e.Form.Controls("Table1").Table.DataSource = DataTables("表A")
If DataTables.Contains("临时表") Then DataTables.Unload("临时表")
Connections.Delete("test")
End If
Connections.Add("test", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Extended Properties=Excel 8.0;")
Dim tns As String = ""
For Each tn As String In Connections("test").GetTableNames
tns &= tn & "|"
Next
e.Form.Controls("ComboBox1").ComboList = tns.TrimEnd("|")
End If
加好友 
发短信
Post By：2023/2/4 9:02:00 [显示全部帖子]
