能帮忙看看红色的地方该怎么写啊,感谢 感谢
Dim Filter As String
Dim r1 As WinForm.RadioButton = e.form.controls("RadioButton5")
Dim r2 As WinForm.RadioButton = e.form.controls("RadioButton6")
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行r =
If r1.Checked Then
filter = "1=1"
ElseIf r2.checked Then
filter = "平台信息_状态 = '未分组'" And "实况_管理状态 = '已管理'"
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("产品编辑窗口_Table1").Filter = Filter