Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")If e.Node.Name = "全部" Then DataTables("物资字典").LoadFilter = ""Else DataTables("物资字典").LoadFilter = "物资编码 Like '" & e.Node.Name & "%'"End If
DataTables("物资字典").Load
加好友 
发短信
Post By：2014/10/22 14:30:00 [显示全部帖子]
