Foxtable(狐表)用户栏目专家坐堂 → 想知道查询的时候怎么才可以,,选中那个表查询的就是那个表,,,


  共有1802人关注过本帖树形打印复制链接

主题:想知道查询的时候怎么才可以,,选中那个表查询的就是那个表,,,

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


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/11 11:31:00 [显示全部帖子]

上面代码没有问题。上实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/11 15:01:00 [显示全部帖子]

Dim Filter As String
With e.Form.Controls("开始日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("结束日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
With e.Form.Controls("订单号")
    If .Text > ""Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订单号 = '" & .Text & "'"
    End If
End With
With e.Form.Controls("电话")
    If .Text > "" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "电话 = '" & .Text & "'"
    End If
End With
With e.Form.Controls("销售商编号")
    If .Text > "" Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "销售商编号 = '" & .Text & "'"
    End If
End With
msgbox(Filter )
e.Form.Controls("线下订单数据表").Table.Filter = filter

 回到顶部