Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于空值控件查询问题


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

主题：[求助]关于空值控件查询问题
帅哥哟，离线，有人找我吗？
悠悠yo
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：30 积分：281 威望：0 精华：0 注册：2016/10/18 13:35:00 		[求助]关于空值控件查询问题  发帖心情 Post By：2016/12/6 11:12:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161206111018.png
图片点击可在新窗口打开查看
如图所示三个控件,要用这三个控件的值查询.但是也有为空时候,因为空值查不到值,所以要判断其中一个为空,两个为空,三个为空的各种情况
 回到顶部
帅哥哟，离线，有人找我吗？
悠悠yo
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：30 积分：281 威望：0 精华：0 注册：2016/10/18 13:35:00 		  发帖心情 Post By：2016/12/6 11:19:00 [只看该作者]

Dim tsb1 As Date = Forms("订单信息").Controls("datetimepicker1").value
Dim tsb2 As Date = forms("订单信息").Controls("datetimepicker2").value
Dim tb1 As String = forms("订单信息").Controls("textbox1").text
Dim tb2 As String = forms("订单信息").Controls("textbox2").text

Dim sql As String
Dim ssql As String
If tsb1 = Nothing And tsb2 = Nothing Then
    ssql = ""
Else
    If tsb1 = Nothing Then
        tsb1 = "1970-01-01"
    End If
    
    If tsb2 = Nothing Then
        tsb2 = Date.Today.Date
    End If
    ssql = "入库日期>='" & tsb1 & "' and 入库日期<='" & tsb2 & "' "
    
    
End If
If tb2 = "" Then
    sql = ssql
Else
    sql = ssql & "and 订单状态 = '" & tb2 & "' "
End If
Dim dsql As String
If tb1="" Then
    dsql=""
Else
    dsql= " 商品条码 = '" & tb1 & "'"
End If
messagebox.show(sql)
Tables("订单信息_table1").filter = sql
Tables("订单信息_table2").Filter = dsql




最好时候也就写成这样,但是and通配符不支持前后为空
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/6 11:23:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
悠悠yo
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：30 积分：281 威望：0 精华：0 注册：2016/10/18 13:35:00 		  发帖心情 Post By：2016/12/6 11:36:00 [只看该作者]

以下是引用有点蓝在2016/12/6 11:23:00的发言：
参考：http://www.foxtable.com/webhelp/scr/1058.htm
谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
悠悠yo
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：30 积分：281 威望：0 精华：0 注册：2016/10/18 13:35:00 		  发帖心情 Post By：2016/12/6 11:59:00 [只看该作者]

以下是引用有点蓝在2016/12/6 11:23:00的发言：
参考：http://www.foxtable.com/webhelp/scr/1058.htm
我写了一个,但是提示我"语法错误:“入库日期”运算符后缺少操作数。"
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2016/12/6 12:57:00 [只看该作者]


Dim ssql As String = "1=1"
If tsb1 <> Nothing Then
    ssql = " and 入库日期 >= #" & tsb1 & "#"
End If

If tsb2 <> Nothing Then
    ssql = " and 入库日期 <= #" & tsb2 & "#"
End If

 

 回到顶部
帅哥哟，离线，有人找我吗？
悠悠yo
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：30 积分：281 威望：0 精华：0 注册：2016/10/18 13:35:00 		  发帖心情 Post By：2016/12/6 14:09:00 [只看该作者]

以下是引用有点色在2016/12/6 12:57:00的发言：


Dim ssql As String = "1=1"
If tsb1 <> Nothing Then
    ssql = " and 入库日期 >= #" & tsb1 & "#"
End If

If tsb2 <> Nothing Then
    ssql = " and 入库日期 <= #" & tsb2 & "#"
End If

 

With e.Form.Controls("datetimepicker1")

    If .value IsNot Nothing Then

        filter = "入库日期>=#" & tsb1 & "#"

    ElseIf .value Is Nothing Then

        filter = ""

    End If

End With

messagebox.Show(filter)

With e.Form.Controls("datetimepicker2")

    If .value IsNot Nothing Then

        filter = filter & " and 入库日期<=#" & tsb2 & "#"

    ElseIf .value Is Nothing Then

        filter = filter 

    End If

End With

messagebox.Show(filter)

With e.Form.Controls("textbox1")

    If .value IsNot Nothing Then

        filter1 = "商品条码 = '" & tb1 & "'"

    End If

End With

With e.Form.Controls("textbox2")

    If .value IsNot Nothing Then

        filter =filter & " and 订单状态 = '" & tb2 & "'"

    ElseIf .value Is Nothing Then

        filter = filter

    End If

End With

messagebox.Show(filter)


Tables("订单信息_table1").filter = filter

Tables("订单信息_table2").Filter = filter1

还是and的问题


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/6 14:27:00 [只看该作者]

如果不理解代码就按照帮助的来，不要乱改

Dim filter As String = "1=1"
With e.Form.Controls("datetimepicker1")
    If .value IsNot Nothing Then
        filter &= " and >=#" & .value & "#"
    End If
End With
messagebox.Show(filter)
With e.Form.Controls("datetimepicker2")
    If .value IsNot Nothing Then
        filter &= " and 入库日期<=#" & .value & "#"
    End If
End With
messagebox.Show(filter)
Dim filter1 As String = "1=1"
With e.Form.Controls("textbox1")
    If .value IsNot Nothing Then
        filter1 &= " and 商品条码 = '" & tb1 & "'"
    End If
End With
With e.Form.Controls("textbox2")
    If .value IsNot Nothing Then
        filter1 &= " and 订单状态 = '" & tb2 & "'"
    End If
End With
messagebox.Show(filter)

Tables("订单信息_table1").filter = filter
Tables("订单信息_table2").Filter = filter1
[此贴子已经被作者于2016/12/6 14:27:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
悠悠yo
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：30 积分：281 威望：0 精华：0 注册：2016/10/18 13:35:00 		  发帖心情 Post By：2016/12/6 15:37:00 [只看该作者]

以下是引用有点蓝在2016/12/6 14:27:00的发言：
如果不理解代码就按照帮助的来，不要乱改

Dim filter As String = "1=1"
With e.Form.Controls("datetimepicker1")
    If .value IsNot Nothing Then
        filter &= " and >=#" & .value & "#"
    End If
End With
messagebox.Show(filter)
With e.Form.Controls("datetimepicker2")
    If .value IsNot Nothing Then
        filter &= " and 入库日期<=#" & .value & "#"
    End If
End With
messagebox.Show(filter)
Dim filter1 As String = "1=1"
With e.Form.Controls("textbox1")
    If .value IsNot Nothing Then
        filter1 &= " and 商品条码 = '" & tb1 & "'"
    End If
End With
With e.Form.Controls("textbox2")
    If .value IsNot Nothing Then
        filter1 &= " and 订单状态 = '" & tb2 & "'"
    End If
End With
messagebox.Show(filter)

Tables("订单信息_table1").filter = filter
Tables("订单信息_table2").Filter = filter1
[此贴子已经被作者于2016/12/6 14:27:38编辑过]

谢谢,受教了,一开始我还不明白那个1=1是什么,看了两遍我理解了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06885 秒, 4 次数据查询