| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 录入数据即刻可选问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38056) |
| -- 作者：syczmg -- 发布时间：2013/7/18 16:55:00 -- 录入数据即刻可选问题 有4个表：凭证；资金；凭证.资金；合同。 在项目事件MaintableChanged写入 If MainTable.Name = "资金" Then Dim tb As New DropTreeBuilder tb.SourceTable = DataTables("合同") \'指定目录树表 tb.TreeCols = "年份|项目编号|品目编号|拨款序号" \'指定用于生成目录树的列 tb.SourceCols = "品目编号|中标供应商|中标金额|拨款序号|拨款比例|拨款金额" \'指定数据来源列 tb.ReceiveCols = "品目编号|中标供应商|中标金额|拨款序号|拨款比例|拨款金额" \'指定数据接收列 Tables("资金").Cols("品目编号").DropTree = tb.Build() End If “资金”表“品目编号”列即可选择，但是把“资金”表替换为“凭证.资金”表后，“凭证.资金”表“品目编号”列不即可选择。如何解决？求救于狐爸！ |
| -- 作者：Bin -- 发布时间：2013/7/18 16:56:00 -- 上例子看看. |
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/19 12:02:00 -- 写在CurrentTableChanged事件中,代码改为：
If CurrentTable.DataTable.Name = "资金" Then Dim tb As New DropTreeBuilder tb.SourceTable = DataTables("合同") \'指定目录树表 tb.TreeCols = "年份|项目编号|品目编号|拨款序号" \'指定用于生成目录树的列 tb.SourceCols = "品目编号|中标供应商|中标金额|拨款序号|拨款比例|拨款金额" \'指定数据来源列 tb.ReceiveCols = "品目编号|中标供应商|中标金额|拨款序号|拨款比例|拨款金额" \'指定数据接收列 e.Table.Cols("品目编号").DropTree = tb.Build() End If |