主题：动态加载数据问题

现在有2个问题：
1.目录树加载数据和文本框筛选各自独立实现，即用目录树加载时，不管文本框，文本框输入数据时，不管目录树，各自独立实现加载数据，怎样实现。
2.DataTables("产品工序")和DataTables("产品工艺")表加载数据条件为图号列=产品目录表光标所在行图号列相等。（注意，不是窗口关联表Tables("产品目录.产品工序")，和Tables("产品目录.产品工序.产品工艺").因为我还有其他窗口要调用数据，需要图号一样的3个表都加载数据，本窗口只显示关联数据而以）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.table

谢谢mr725的回复，但是还是不行。
我在产品目录CurrentChanged事件中加代码：
With DataTables("产品工序")
    .LoadFilter = "[图号] = '" & Tables("产品目录").Current("图号") & "'"
    .Load()
End With
With DataTables("产品工艺")
    .LoadFilter = "[图号] = '" & Tables("产品目录").Current("图号") & "'"
    .Load()
End With
功能达到要求，但是产品目录也是动态加载数据，在切换数据时，（从A到B条件加载数据切换时）有空行的存在，就报错。帮我看看怎样加一个空行时不执行可能就对了。
我在窗口控件文本框TextChanged事件加入代码：
Dim Filter As string
with e.Form
    Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
    Filter =  "[图号] Like '*" & txb1.text & "*'or [名称] Like '*" & txb1.text & "*'"
end with
DataTables("产品目录").LoadFilter = Filter
DataTables("产品目录").Load()
还是有冲突，帮我看看，应该怎么改才合适。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.table

谢谢mr725，空行问题解决，太好了。现在看看这一段怎么搞：
Dim Filter As string
with e.Form
    Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
    Filter =  "[图号] Like '*" & txb1.text & "*'or [名称] Like '*" & txb1.text & "*'"
end with
DataTables("产品目录").LoadFilter = Filter
DataTables("产品目录").Load()

如果我把表直接加载，用代码：
with e.Form
    Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
    Tables("产品目录").Filter =  "[图号] Like '*" & txb1.text & "*'or [名称] Like '*" & txb1.text & "*'"
end with
是可以筛选的，再加上重新加载数据就不行，搞不懂，帮帮忙了，谢谢

8楼也是不行，谢谢了，看看怎么做，窗口文本框输入数据模糊查询加载数据问题，可以搞一个课题供大家研究了。呵呵

If  Vars("用户组") = "浏览员"
    e.Form.Controls ("产品目录录入"). Visible = False
End If
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 客户,机型,所属部分,图号 From 产品目录"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildDataTree(dt, "","客户", "机型","所属部分","图号")
if tables("产品目录").count > 0
Tables("产品目录").OpenView("车间主管")
Tables("产品目录.产品工序").OpenView("车间主管")
Tables("产品目录.产品工序.产品工艺").OpenView("车间主管")
end if

不能加>=0,会出错。11楼代码有一点效果了，最少不会提示出错了，但是不能输入中间包含的数据，还是达不到要求，原来我的代码用Filter =  "[图号] Like '*" & txb1.text & "*'or [名称] Like '*" & txb1.text & "*'"是很好用的，但是现在要搞动态加载数据就不行了。

谢谢mr725，按你的方法，达到我的目的了，明天我在用到我的项目中试试，不知外部数据源是不是一样的，特别是以下搞不懂:

Tables("产品工艺").Filter = "[图号] = '§'"

Tables("产品工序").Filter = "[图号] = '§'"