以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]两表两列取值目录树 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133702) |
||||
-- 作者:湛江智 -- 发布时间:2019/4/18 11:48:00 -- [求助]两表两列取值目录树 表A地区列,下拉取表B与表A国家列一样值的地区列值,如果表A国家列值在表B中不存在,就取值表B国家列“其他”值对应的地区列值
同时还想实现,如果表A地区列已录入地区值,只能下拉目录树选择录入排在当前值后面的值,比如表A 国家列:中国,地区列当前值是2,下拉目录树只能录入3(可能是中文)
[此贴子已经被作者于2019/4/18 11:48:41编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2019/4/18 12:32:00 -- prepareEdit事件
static flag As Boolean = False If e.Col.name = "地区" Then |
||||
-- 作者:湛江智 -- 发布时间:2019/4/18 14:19:00 -- 回复:(有点甜)prepareEdit事件?static fl... 版主,上面代码下拉目录树一样,不能根据国家列不同,下拉显示不同 如果要在窗口里面下拉,代码怎么写呢?
我的版本不能升级了,回复辛苦贴出代码了
[此贴子已经被作者于2019/4/18 14:20:43编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2019/4/18 15:00:00 -- 1、
static flag As Boolean = False
2、窗口的下拉目录树,参考
http://www.foxtable.com/webhelp/scr/2350.htm
|
||||
-- 作者:湛江智 -- 发布时间:2019/5/23 18:36:00 -- 回复:(有点甜)1、?static flag As Boolea... 改了两个表列名不一样,PrepareEdit上楼代码报错,求助 窗口的下拉目录树,还需其它代码才能实现PrepareEdit条件下拉嘛?
[此贴子已经被作者于2019/5/23 19:07:42编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2019/5/23 19:13:00 -- static flag As Boolean = False If e.Col.name = "工程状态" Then If e.IsFocusCell And flag = False Then Dim tb As New DropTreeBuilder tb.SourceTable = DataTables("下拉目录树") \'指定目录树表 tb.TreeCols = "县市" \'指定用于生成目录树的列 tb.ReceiveCols = "工程状态" \'指定数据接收列 Dim fdr As DataRow = DataTables("下拉目录树").find("省市=\'" & e.Row("设计任务要求_设计类别") & "\'") If fdr IsNot Nothing Then Dim dq As DataRow = e.Table.DataTable.find("设计任务要求_设计类别=\'" & e.Row("设计任务要求_设计类别") & "\' and _Identify <> " & e.Row("_Identify"), "_Identify desc") If dq IsNot Nothing Then Dim fdr1 As DataRow = DataTables("下拉目录树").find("省市=\'" & e.Row("设计任务要求_设计类别") & "\' and 县市 = \'" & dq("工程状态") & "\'") tb.TreeFilter = "省市=\'" & e.Row("设计任务要求_设计类别") & "\' and _Identify > " & fdr1("_Identify") Else tb.TreeFilter = "省市=\'" & e.Row("设计任务要求_设计类别") & "\'" End If Else tb.TreeFilter = "省市=\'其他\'" End If e.Col.DropTree = tb.Build() flag = True Else flag = False End If Else flag = False End If |
||||
-- 作者:湛江智 -- 发布时间:2019/5/23 19:22:00 -- 回复:(有点甜)static flag As Boolean = FalseIf e... 坛主,上楼代码在窗口2,中失效
窗口1 AfterLoad 下面代码要怎么修改,实现上楼prepareEdit功能,求助
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") [此贴子已经被作者于2019/5/24 10:39:22编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2019/5/24 10:44:00 -- dropDownOpening 事件
Dim erow As Row = Tables("室内设计项目").Current |
||||
-- 作者:湛江智 -- 发布时间:2019/9/11 11:43:00 -- 回复:(有点甜)dropDownOpening 事件 Dim ... 师傅,按上楼代码,报错如下,求助
.NET Framework 版本:4.0.30319.42000
|
||||
-- 作者:有点蓝 -- 发布时间:2019/9/11 13:40:00 -- Dim erow As Row = Tables("室内设计项目").Current If erow Is Nothing Then Return Dim filter As String = "" Dim fdr As DataRow = DataTables("下拉目录树").find("省市=\'" & eRow("设计任务要求_设计类别") & "\'") If fdr IsNot Nothing Then Dim dq As DataRow = erow.Table.DataTable.find("设计任务要求_设计类别=\'" & eRow("设计任务要求_设计类别") & "\' and _Identify <> " & eRow("_Identify"), "_Identify desc") If dq IsNot Nothing Then Dim fdr1 As DataRow = DataTables("下拉目录树").find("省市=\'" & eRow("设计任务要求_设计类别") & "\' and 县市 = \'" & dq("工程状态") & "\'") If fdr1 IsNot Nothing Then Filter = "省市=\'" & eRow("设计任务要求_设计类别") & "\' and _Identify > " & fdr1("_Identify") Else Filter = "省市=\'" & eRow("设计任务要求_设计类别") & "\'" End If Else Filter = "省市=\'" & eRow("设计任务要求_设计类别") & "\'" End If Else Filter = "省市=\'其他\'" End If Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree("下拉目录树","省市|县市", filter)
|