| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教：简单代码，为何速度奇慢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73770) |
| -- 作者：bahamute -- 发布时间：2015/8/26 11:45:00 -- 请教：简单代码，为何速度奇慢？ win10系统 单击“选择”按钮，然后选择一个文件，再单击OK，之后为何要等将近10秒，TextBox1控件才会显示选择的文件？ “选择”按钮代码如下 With e.Form Dim dlg As New OpenFileDialog dlg.Filter= "Excel 97-2003文件(*.xls)|*.xls|Excel 2007文件(*.xlsx)|*.xlsx" If dlg.ShowDialog = DialogResult.Ok Then .Controls("TextBox1").value = dlg.FileName .Controls("ComboBox1").Value = "" .Controls("Table1").Table.DataTable.DataRows.clear() .Controls("ComboBox1").Select() End If End With |
| -- 作者：大红袍 -- 发布时间：2015/8/26 11:47:00 -- 把下面的代码去掉看看
.Controls("ComboBox1").Value = "" .Controls("Table1").Table.DataTable.DataRows.clear()
.Controls("ComboBox1").Select()
|
| -- 作者：bahamute -- 发布时间：2015/8/26 11:53:00 -- 注释掉还是还是那样 |
| -- 作者：bahamute -- 发布时间：2015/8/26 11:54:00 -- 貌似卡在了这句上面，判断比较费时吗？ If dlg.ShowDialog = DialogResult.Ok Then
[此贴子已经被作者于2015/8/26 11:54:31编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/8/26 11:55:00 -- 直接写，如果慢，没办法
Dim dlg As New OpenFileDialog dlg.Filter= "Excel 97-2003文件(*.xls)|*.xls|Excel 2007文件(*.xlsx)|*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
msgbox(dlg.FileName)
End If
|
| -- 作者：jspta -- 发布时间：2015/8/26 13:56:00 -- 打开EXCEL慢 |