通过Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
Dim connStr As String = "server=localhost; port=3301; user id=root; password=root ; database=default;CharSet=utf8"
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open
Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("se lect * from t1" , conn)
Dim ds As New System.Data.DataSet()
mda.Fill(ds, "TableTemp") 'MySQLDataAdapter
e.form.controls("Table1").Table.DataSource = ds.Tables("TableTemp")
conn.close
vars("dt") = e.form.controls("Table1").Table.datatable
在新窗口的table 用DataSource 指定为 vars("dt") 后，关闭窗口就报错。
加好友 
发短信
Post By：2019/9/17 15:08:00 [只看该作者]
