主题：我晕了，这个表达式怎么不能连接起来

Dim dt As DataTable = Tables(e.form.Name & "_Table1").DataTable
Dim Filter As String
Dim T As String = e.form.Controls("TextBox1").Value '定义控件的值
For Each dc As DataCol In dt.DataCols '遍历表的所有列
    If dc.IsDate OrElse dc.IsBoolean OrElse dc.IsNumeric Then  '如果是时间列,逻辑列,数值列
        Continue For    '排除
    End If
    If Filter = "" Then
        Filter = Filter & "[" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
    Else
        Filter = Filter & " or [" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
    End If
Next

With e.Form.Controls("报表名称")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = "报表名称 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "年 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "月 = '" & .Value & "'"
    End If
End With
MessageBox.Show(Filter)

 

 

 

第一段的模糊筛选和第二段的报表名称 怎么连不起来了 我晕死了

 试试用

一样的呀 我在报表控件 输入数据 就和上面断开了 奇了怪了

 注释掉，一部分一部分的调试呗，用msgbox弹出对应的值看看。

我改了顺序

奇怪  用mgsbox 测试 也是在那边断开了

 例子，我也晕了

搞定