以下是引用gzdw在2013-8-28 17:47:00的发言：
请问能否解释一下这段代码的含义？因为许多写法在狐表的帮助中找不到。
If e.Sender.SelectedPage Is Nothing Then '规避空选
Exit Sub
End If
using DataSet1 As new System.Data.DataSet
Dim Connection As New System.Data.OleDb.OleDbConnection
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
+ Vars("Path") + ";Extended Properties='Excel 8.0;HDR=yes ;IMEX=2'"
Dim adapter As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [" & Forms("窗口1").Controls("TabControl1").SelectedPage.name & "] ", Connection)
adapter.Fill(DataSet1)
Tables("窗口1_Table1").DataSource = DataSet1.Tables(0) '按实际修改表名
Connection.Close()
End using
<!--EndFragment-->
1、定义数据集。
2、定义连接。
3、定义连接字符串，不是excel2003的修改这里，也可以用扩展名判断后选择，提高通用性。
后面就是一些取DataTable和绑定表的工作，最后释放连接。
using 表示代码结束后立即释放。后面两个红的是全路径引用对象。
加好友 
发短信
Post By：2013/7/31 12:44:00 [显示全部帖子]
不是2003的要改连接串,注意表名，或自己写参数传入。
此主题相关图片如下：未命名1.jpg
