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的时候，就在这个基础上在添加一个 库存 的平台信息_状态列 为 未上传的行，感谢 感谢
加好友 
发短信
Post By：2018/6/28 11:33:00 [只看该作者]
