'動態連結資料表單
Dim mTable As String
mTable = Trim(Combo1.Text)
Set RS = db.Execute("select * from [" & mTable & "]")
RS.Requery
Set DataGrid1.DataSource = RS
Dim mTable As String
mTable = Trim(Combo1.Text)
Set RS = db.Execute("select * from [" & mTable & "]")
RS.Requery
Set DataGrid1.DataSource = RS
請先 登入 以發表留言。