以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  列内容查找  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12004)

--  作者:明丰
--  发布时间:2011/8/19 10:19:00
--  列内容查找

只查找货品资料表指定列的内容

 

1:“货品资料”表的列名称自动填充到“列选择”表的“列名”列中;

 

2:“货品主表”窗口的TextBox1只查找“列选择”表的列名打勾对应的列内容。

 

请问如何设置?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table


--  作者:czy
--  发布时间:2011/8/19 10:51:00
--  

1、可以增加一个字符型全局变量

在项目属性AfterOpenProject中设置代码,如:

For Each dc As DataCol In DataTables("货品资料").DataCols
    Vars("Name") = Vars("Name") & "|" & dc.Name
Next

列选择表PrepareEdit事件代码
If e.Col.Name = "列名" Then
     e.Col.Combolist = Vars("Name")
End If

 

2、没明白你的意思


--  作者:明丰
--  发布时间:2011/8/19 11:21:00
--  

例如:

 

“列选择”表

列名               选择

品牌编号          True

品牌                False

货品编号          True

…………

 

“货品主表”窗口的TextBox1只查找“货品资料”表“品牌编号”、“货品编号”列符合条件的值。

 

 

 

 

 


--  作者:狐狸爸爸
--  发布时间:2011/8/19 11:37:00
--  
以下是引用明丰在2011-8-19 10:19:00的发言:

只查找货品资料表指定列的内容

 

1:“货品资料”表的列名称自动填充到“列选择”表的“列名”列中;

 

 

窗口的AfterLoad事件代码改为:

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("货品资料", "货品类别|货品简称|品牌")
trv.Nodes.Insert("显示所有行","显示所有行",0)
DataTables("列选择").DataRows.Clear()
For Each dc As DataCol In DataTables("货品资料").DataCols
    Dim dr As DataRow = DataTables("列选择").AddNew()
    dr("列名") = dc.name
Next


--  作者:明丰
--  发布时间:2011/8/19 12:47:00
--  
 

2货品主表窗口的TextBox1只查找列选择表的列名打勾对应的列内容。

例如:

 

列选择

列名               选择

品牌编号          True

品牌                False

货品编号          True

…………

 

货品主表窗口的TextBox1只查找货品资料品牌编号货品编号列符合条件的值。

请问如何设置?