- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 树筛选添加添加 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121054)
-- 发布时间：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
-- 发布时间：2018/6/28 12:00:00
--
感谢 感谢 ，可以了 谢谢你的帮助
-- 发布时间：2018/7/26 14:03:00
--
能帮忙看看吗？感谢 感谢 就是点击控件在筛选没有排除 总状态不是未完成的内容呢，感谢 感谢
[此贴子已经被作者于2018/7/26 14:24:02编辑过]
-- 发布时间：2018/7/26 14:26: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("第三列") & "\'"
Case 2
Filter &= " and [第一列] = \'" & dr("第一列") & "\' And [第三列] = \'" & dr("第三列") & "\'And [第四列] = \'" & dr("第四列") & "\'"
End Select
End If
Tables("窗口1_Table1").Filter = Filter