通过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") 后,关闭窗口就报错。