Dim db = HySql.DataBaseFactory.CreateDatabase("fcsyzx")
Dim Sql = "show tables"
Dim dt As System.Data.DataTable = db.ExecuteDataSet(Sql).Tables(0)
For Each r As Row In dt.rows
Output.show(r("tables_in_mp_gswhcm_cn"))
Next
方法1、绑定到窗口表控件,就可以使用Foxtable的方法遍历
For Each r As System.Data.DataRow In dt.rows
Output.show(r("tables_in_mp_gswhcm_cn"))
Next