Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有2518人关注过本帖平板打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
SMXTB
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:777 威望:0 精华:0 注册:2015/8/31 11:01:00
[求助]  发帖心情 Post By:2015/10/19 16:34:00 [只看该作者]

设计了一个查询窗体,有一个文本输入控件,和两个时间输入控件,文本控件是要求模糊条件,现在通过两段代码都能分别操作查询,但两个条件同时输入时,提示AND运算符前缺少操作数:请问代码在哪里错了?

Dim tbl As Table = Tables("查询_Table1")
Dim txt As String = e.Form.Controls("TextBox1").TEXT
If txt = "" Then
   tbl.Filter = "  " 
Else
    txt = "'%" & txt & "%'" 
    tbl.Filter = "XM Like " & txt & " Or TXRY Like " & txt
End If


With e.Form.Controls("KS")
    If .Value IsNot Nothing Then
        If tbl.Filter >"" Then
            tbl.Filter = Filter & " And "
        End If
        tbl.Filter = Filter & "FSSJ >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("JS")
    If .Value IsNot Nothing Then
        If tbl.Filter >"" Then
            tbl.Filter = Filter & " And "
        End If
        tbl.Filter = Filter & "FSSJ <= #" & .Value & "#"
    End If
End With


 回到顶部