主题：[求助]简化代码

With Tables("台账查询_table1")
    If e.Form.Controls("ComboBox1").text = "" And e.Form.Controls("DateTimePicker1").text ="" And e.Form.Controls("DateTimePicker2").text ="" And e.Form.Controls("DropBox1").text ="" Then
        .filter =""
    Else
        If e.Form.Controls("ComboBox1").text = "" And e.Form.Controls("DateTimePicker1").text ="" And e.Form.Controls("DateTimePicker2").text ="" Then
            .filter = "品号 = '" & e.Form.Controls("DropBox1").text & "' "
        Else
            If e.Form.Controls("DateTimePicker1").text ="" And e.Form.Controls("DateTimePicker2").text ="" And e.Form.Controls("DropBox1").text ="" Then
                .filter = "仓库 = '" & e.Form.Controls("ComboBox1").text & "' "
            Else
                If  e.Form.Controls("ComboBox1").text = "" And e.Form.Controls("DateTimePicker2").text ="" And e.Form.Controls("DropBox1").text ="" Then
                    .filter ="日期 >= #" &e.Form.Controls("DateTimePicker1").text & "# "
                Else
                    If  e.Form.Controls("ComboBox1").text = "" And e.Form.Controls("DateTimePicker1").text ="" And e.Form.Controls("DropBox1").text ="" Then
                        .filter = "日期 <= #" & e.Form.Controls("DateTimePicker2").text & "# "
                    Else
                        If e.Form.Controls("DateTimePicker1").text ="" And e.Form.Controls("DateTimePicker2").text ="" Then
                           
                            .filter = "仓库 = '" & e.Form.Controls("ComboBox1").text & "'and 品号 ='" & e.Form.Controls("DropBox1").text & "' "
                        Else
                            If e.Form.Controls("DropBox1").text="" And e.Form.Controls("DateTimePicker1").text="" Then
                                .filter = "仓库 = '" & e.Form.Controls("ComboBox1").text & "' and 日期 <= #" & e.Form.Controls("DateTimePicker2").text & "# "
                            Else
                                If e.Form.Controls("DateTimePicker2").text="" And e.Form.Controls("DropBox1").text="" Then
                                    .filter = "仓库 = '" & e.Form.Controls("ComboBox1").text & "' and 日期 >= #" & e.Form.Controls("DateTimePicker1").text & "# "
                                Else
                                    If e.Form.Controls("DropBox1").text ="" And e.Form.Controls("ComboBox1").text="" Then
                                        .filter ="日期 >= #" &e.Form.Controls("DateTimePicker1").text & "# and 日期 <= #" & e.Form.Controls("DateTimePicker2").text & "# "
                                    Else
                                        If e.Form.Controls("DateTimePicker1").text="" And e.Form.Controls("ComboBox1").text="" Then
                                            .filter = "日期 <= #" & e.Form.Controls("DateTimePicker2").text & "# and 品号 ='" & e.Form.Controls("DropBox1").text & "' "
                                        Else
                                            If e.Form.Controls("DateTimePicker1").text="" And e.Form.Controls("ComboBox1").text="" Then
                                                .filter = "日期 >= #" & e.Form.Controls("DateTimePicker1").text & "# and 品号 ='" & e.Form.Controls("DropBox1").text & "' "
                                            Else
                                               
                                               
                                                If e.Form.Controls("DropBox1").text ="" Then
                                                    .filter = "仓库 = '" & e.Form.Controls("ComboBox1").text & "' and 日期 >= #" &e.Form.Controls("DateTimePicker1").text & "# and 日期<= #" & e.Form.Controls("DateTimePicker2").text & "# "
                                                Else
                                                    If e.Form.Controls("ComboBox1").text = "" Then
                                                        .filter = "日期 >= #" &e.Form.Controls("DateTimePicker1").text & "# and 日期<= #" & e.Form.Controls("DateTimePicker2").text & "# and 品号 = '" & e.Form.Controls("DropBox1").text & "' "
                                                    Else
                                                        If e.Form.Controls("DateTimePicker1").text="" Then
                                                            .filter = "仓库 = '" & e.Form.Controls("ComboBox1").text & "' and 日期<= #" & e.Form.Controls("DateTimePicker2").text & "# and 品号 = '" & e.Form.Controls("DropBox1").text & "' "
                                                           
                                                        Else
                                                            If e.Form.Controls("DateTimePicker2").text="" Then
                                                                .filter = "仓库 = '" & e.Form.Controls("ComboBox1").text & "' and 日期 >= #" &e.Form.Controls("DateTimePicker1").text & "# and 品号 = '" & e.Form.Controls("DropBox1").text & "' "
                                                            Else
                                                                .filter = "仓库 = '" & e.Form.Controls("ComboBox1").text & "' and 日期 >= #" &e.Form.Controls("DateTimePicker1").text & "# and 日期<= #" & e.Form.Controls("DateTimePicker2").text & "# and 品号 = '" & e.Form.Controls("DropBox1").text & "' "
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If

End With

 

那位大神能帮忙简化下代码

http://www.foxtable.com/help/topics/1058.htm

Dim filter As String  = ""
If e.Form.Controls("ComboBox1").text > ""  Then  filter = "仓库 = '" & e.Form.Controls("ComboBox1").text & "' "
If e.Form.Controls("DateTimePicker1").text >"" Then  filter =filter & " And 日期 >= #" & e.Form.Controls("DateTimePicker1").text & "# "
If e.Form.Controls("DateTimePicker2").text >""  Then  filter =filter & " And 日期 <= #" & e.Form.Controls("DateTimePicker2").text & "#  "
If e.Form.Controls("DropBox1").text >""  Then  filter =filter & " And 品号 ='" & e.Form.Controls("DropBox1").text & "' "
filter = filter.Trim
If filter.StartsWith("And") Then  filter = filter.SubString(3)
Tables("台账查询_table1").Filter = filter

谢谢，这个好，我都写死了

学习了，另外弱弱的问一下，If filter.StartsWith("And") Then  filter = filter.SubString(3) 中，参数3是什么含义？

 

参考，从第三位开始截取所有字符

 

http://www.foxtable.com/help/topics/0240.htm