专家坐堂-loadfilterFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  loadfilter  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90814)

--  作者：lk15502
--  发布时间：2016/9/22 10:07:00
--  loadfilter
订单表的订单状态列，我要“加载全部”把除了"未审核”的其他都加载进来，代码错了，请教老师
Dim ddzt As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If ddzt.value IsNot Nothing Then
If ddzt.value = "加载全部" Then
DataTables("订单表").loadfilter = "[订单状态] <> \'未审核\'"
DataTables("订单表").load()
Else
DataTables("订单表").loadfilter = "[订单状态] = \'" & ddzt.value & "\'"
DataTables("订单表").load()
End If
End If

--  作者：有点蓝
--  发布时间：2016/9/22 10:26:00
--
代码没有问题。提示什么错误？

--  作者：lk15502
--  发布时间：2016/9/22 10:59:00
--
老师，搞错了不是上面的代码，是加载全部的时候，没有起作用
Dim ddzt As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If ddzt.value IsNot Nothing Then
If ddzt.value = "加载全部" Then
If _usergroup <> "贸易部" Then
DataTables("订单表").loadfilter = ""
DataTables("订单表").load()
Else
DataTables("订单表").loadfilter = "[销售人员] = \'" & _username & "\'"
DataTables("订单表").load()
End If
Else
If _usergroup <> "贸易部" Then
DataTables("订单表").loadfilter = "[订单状态] = \'" & ddzt.value & "\'"
DataTables("订单表").load()
Else
DataTables("订单表").loadfilter = "[订单状态] = \'" & ddzt.value & "\' andalso [销售人员] = \'" & _username & "\'"
DataTables("订单表").load()
End If
End If
End If

--  作者：有点蓝
--  发布时间：2016/9/22 11:05:00
--

代码最后弹出看看
msgbox(ddzt.value )
msgbox(_usergroup )
msgbox(DataTables("订单表").loadfilter)

--  作者：lk15502
--  发布时间：2016/9/22 11:20:00
--
选择全部加载后
DataTables("订单表").loadfilter = “[订单状态] = \'全部加载\'”
订单状态没有全部加载的项目，我只是想加载全部，DataTables("订单表").loadfilter = “”
请问老师这是为什么？

--  作者：lk15502
--  发布时间：2016/9/22 11:26:00
--

改成下面的代码，还是一样
Dim ddzt As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If ddzt.value IsNot Nothing Then
If ddzt.value = "加载全部" AndAlso _usergroup <> "贸易部" Then
DataTables("订单表").loadfilter = ""
DataTables("订单表").load()
ElseIf ddzt.value = "加载全部" AndAlso _usergroup = "贸易部" Then
DataTables("订单表").loadfilter = "[销售人员] = \'" & _username & "\'"
DataTables("订单表").load()
ElseIf ddzt.value <> "加载全部" AndAlso _usergroup <> "贸易部" Then
DataTables("订单表").loadfilter = "[订单状态] = \'" & ddzt.value & "\'"
DataTables("订单表").load()
ElseIf ddzt.value <> "加载全部" AndAlso _usergroup = "贸易部" Then
DataTables("订单表").loadfilter = "[订单状态] = \'" & ddzt.value & "\' andalso [销售人员] = \'" & _username & "\'"
DataTables("订单表").load()
End If
End If

--  作者：有点蓝
--  发布时间：2016/9/22 11:41:00
--
4楼的3个提示分别弹出什么内容

--  作者：狐狸爸爸
--  发布时间：2016/9/22 11:49:00
--

看看显示的是什么：

Dim ddzt As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If ddzt.value IsNot Nothing Then
    If ddzt.value = "加载全部" AndAlso _usergroup <> "贸易部" Then
        DataTables("订单表").loadfilter = ""
        DataTables("订单表").load()
        messagebox.show(1)
    ElseIf ddzt.value = "加载全部" AndAlso _usergroup = "贸易部" Then
        DataTables("订单表").loadfilter = "[销售人员] = \'" & _username & "\'"
        DataTables("订单表").load()
        messagebox.show(2)
    ElseIf ddzt.value <> "加载全部" AndAlso _usergroup <> "贸易部" Then
        DataTables("订单表").loadfilter = "[订单状态] = \'" & ddzt.value & "\'"
        DataTables("订单表").load()
        messagebox.show(3)
    ElseIf ddzt.value <> "加载全部" AndAlso _usergroup = "贸易部" Then
        DataTables("订单表").loadfilter = "[订单状态] = \'" & ddzt.value & "\' andalso [销售人员] = \'" & _username & "\'"
        DataTables("订单表").load()
        messagebox.show(4)
    Else
        messagebox.show(5)
    End If
End If
Messagebox.show(“输入值：" & ddzt.value ) Messagebox.show("用户分组:" & _usergroup )
Messagebox.show("合成的条件:"DataTables("订单表").loadfilter)
Messagebox.show("LoadTop属性:"DataTables("订单表").LoadTop)

建议学会调试，这样普通问题，基本上就可以自己搞定了：
http://www.foxtable.com/webhelp/scr/1485.htm

[此贴子已经被作者于2016/9/22 12:03:04编辑过]

--  作者：lk15502
--  发布时间：2016/9/22 11:54:00
--
Messagebox.show(DataTables("订单表").Top)
这句代码是什么意思

--  作者：狐狸爸爸
--  发布时间：2016/9/22 11:59:00
--
Messagebox.show(DataTables("订单表").LoadTop)