主题：[求助]统计

 那你就需要设置多个变量，比如 Filter1、Filter2，分别给变量赋值。

汗，你这个都不会，你真是一点代码都不会了

 

比如这样的代码

 

Dim filter1 As String = "1=1"

Dim filter2 As String = "1=1"

If rybh.text > "" Then
    filter1 &= " and 客户ID = '" & rybh.text & "'"

    filter2 &= " and 客户ID = '" & rybh.text & "'"
End If
If gysbm.text > "" Then
    filter1 &= " and 客户名称 = '" & gysbm.text & "'"

    filter2 &= " and 客户名称 = '" & gysbm.text & "'"
End If

If 控件.text = "采购"

    e.Form.Controls("panel1").Visible = true

    e.Form.Controls("panel2").Visible = false

ElseIf 控件.text = "销售"

    e.Form.Controls("panel1").Visible = false

    e.Form.Controls("panel2").Visible = true

End if

 

返回什么？具体你的问题。