老师,我点历史库的导入按钮时 ,有时会遇到这个问题:历史库导入窗口已关闭,不能调用其中的控件combobox1
Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
If FileIsOpened( dlg.FileName )= True Then
MessageBox.Show("请关闭文件后重新导入!")
e.Form.Close
Else
If Connections.Contains("test") Then
If DataTables.Contains("临时表") Then DataTables.Unload("临时表")
Connections.Delete("test")
Else
e.Form.Close
End If
Connections.Add("test", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dlg.FileName & ";Extended Properties='Excel 8.0;HDR=yes'")
Dim tns As String = ""
For Each tn As String In Connections("test").GetTableNames
tns &= tn & "|"
Next
e.Form.Controls("ComboBox1").ComboList = tns.TrimEnd("|")
e.Form.Controls("ComboBox1").Selectedindex = 0
End If
Else
e.Form.Close
End If
此主题相关图片如下:1.png
此主题相关图片如下:2.png
奇怪的是,我再点一次导入, 就没有这个问题了?
[此贴子已经被作者于2018/9/15 19:38:28编辑过]