Dim cm As winform.combobox = e.form.Controls("combobox1")
Dim tx As winform.textbox = e.form.Controls("textbox3")
Dim cmd As New SQLCommand
cmd.外部数据 = "myacc"
Select Case cm.value
Case "柜号"
cmd.CommandText = "SELECT * From {柜型柜号} WHERE 柜号 like '%" & tx.text & "%'"
Tables("单证_Table3").DataSource = cmd.ExecuteReader()
end select
这个怎么没反应.
[此贴子已经被作者于2009-8-21 12:17:58编辑过]
这个语句对吗
Tables("单证_Table3").DataSource = cmd.ExecuteReader()
Fill方法
对于SQLTable和SQLQuery类型的Table,可以通过Fill方法动态设置数据,Fill方法的语法为:
Fill(SelectString, IsQuery)
或者
Fill(SelectString, ConnectionName, IsQuery)
SelectString: Select语句
ConnectionName: 可选参数,指定数据源名称
IsQuery: 逻辑型,设为True,将生成SQLQuery型Table,否则生成SQLTable型Table.
例如:
Tables("窗口1_Table1").Fill("Select * From {客户}","nwnd",True)
不管Table原来显示的是什么数据,执行上述代码后,Table将显示mwnd数据源中的客户表数据。
感谢狐爸,还没仔细看帮助,希望有时间及时更新帮助,我们好再系统学习.