可以的，你可以用Fill动态加载，假定编号是字符型：
Dim x As String = e.Form.Controls("编号输入框名称").Value
Tables("窗口1_Table1").Fill("SELECT [_Identify],[编号],[代码],[名称],[工种],[说明],[工时],[基准],[调整],[工价],[录入人],[日期],[审核] FROM {产品} INNER JOIN {IE} ON {产品}.ID = {IE}.ID Where 编号 = '" & x & "'")
加好友 
发短信
Post By：2012/5/8 15:35:00 [显示全部帖子]
