以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 树筛选添加添加 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121054) |
-- 作者:yangwenghd -- 发布时间:2018/6/28 11:33:00 -- 树筛选添加添加 Dim Filter As String Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 If e.Node.Text <> "筛选" Then Select Case e.Node.Level Case 0 Filter = "[属性_大类别] = \'" & dr("属性_大类别") & "\'" Case 1 Filter = "[属性_大类别] = \'" & dr("属性_大类别") & "\' And [属性_小类别] = \'" & dr("属性_小类别") & "\'" End Select End If Tables("添加产品窗口_Table1").Filter = Filter 如何在这段代码添加一个条件啊 比如在窗口设置了两个RadioButton,选择RadioButton2的时候就用上面的代码,如果选中RadioButton3的时候,就在这个基础上在添加一个 库存 的平台信息_状态列 为 未上传的行,感谢 感谢 |
-- 作者:有点甜 -- 发布时间:2018/6/28 11:38:00 -- Dim Filter As String Dim r1 As WinForm.RadioButton = e.form.controls("RadioButton1") Dim r2 As WinForm.RadioButton = e.form.controls("RadioButton2") Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行r = If r1.Checked Then filter = "1=1" ElseIf r2.checked Then filter = "平台信息_状态 = \'未上传\'" End If If e.Node.Text <> "筛选" Then Select Case e.Node.Level Case 0 Filter &= " and [属性_大类别] = \'" & dr("属性_大类别") & "\'" Case 1 Filter &= " and [属性_大类别] = \'" & dr("属性_大类别") & "\' And [属性_小类别] = \'" & dr("属性_小类别") & "\'" End Select End If Tables("添加产品窗口_Table1").Filter = Filter |
-- 作者:yangwenghd -- 发布时间:2018/6/28 12:00:00 -- 感谢 感谢 ,可以了 谢谢你的帮助 |
-- 作者:yangwenghd -- 发布时间:2018/7/26 14:03:00 -- 能帮忙看看吗?感谢 感谢 就是点击控件在筛选没有排除 总状态不是未完成的内容呢,感谢 感谢 [此贴子已经被作者于2018/7/26 14:24:02编辑过]
|
-- 作者:有点甜 -- 发布时间:2018/7/26 14:26:00 -- 参考
Dim Filter As String |