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

以文本方式查看主题

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

--  作者：发财
--  发布时间：2014/4/30 15:54:00
--  加载
Dim xj As WinForm.textBox = e.Form.Controls("排除猪主")
If xj.text = "" Then
    MessageBox.Show("请输入排除条件!")
Else
    DataTables("收购").LoadFilter = "[猪主姓名] <> \'" & xj.Text & "\'And [日期] = #" & vars("adate") & "#"
    DataTables("收购").Load()
End If
上述代码出错，是不是 [猪主姓名] <> \'" & xj.Text 出错，应如何修改？

--  作者：Bin
--  发布时间：2014/4/30 16:00:00
--
DataTables("收购").LoadFilter = "[猪主姓名] <> \'" & xj.Text & "\' And [日期] = #" & vars("adate") & "#"

如果是MSSQL #号还单引号

--  作者：发财
--  发布时间：2014/4/30 16:04:00
--
Dim xj As WinForm.textBox = e.Form.Controls("排除猪主")
If xj.text = "" Then
    MessageBox.Show("请输入排除条件!")
Else
    DataTables("收购").LoadFilter = "[猪主姓名] <> \'" & xj.Text & "\'And [日期] = #" & vars("adate") & "#"
    DataTables("收购").Load()
    Dim ff As New Filler
    ff.SourceTable = DataTables("收购")
    ff.SourceCols = "收购单价"
    ff.DataTable = DataTables("验收单")
    ff.DataCols = "单价"
    ff.ExcludeExistValue = True
    ff.Fill()
    For Each dr As DataRow In DataTables("验收单").DataRows
        Dim s1 As Object = "收购单价 = \'" & dr("单价") & "\'"
        dr("头数") = DataTables("收购").Compute("Sum(头数)",s1)
        dr("重量") = DataTables("收购").Compute("Sum(重量)",s1)
    Next
End If

--  作者：发财
--  发布时间：2014/4/30 16:05:00
--
当点击上述代码按钮时，不能显示验收单，为什么？

--  作者：Bin
--  发布时间：2014/4/30 16:11:00
--
什么意思? 没有显示验收单这个表吗? 上个例子看看.

--  作者：发财
--  发布时间：2014/4/30 16:20:00
--

DataTables("收购").LoadFilter = "[猪主姓名] <> \'" & xj.Text & "\'And [日期] = #" & vars("adate") & "#"
改为

DataTables("收购").LoadFilter = "[猪主姓名] ＝ \'" & xj.Text & "\'And [日期] = #" & vars("adate") & "#"

就可以加载文本框内的［猪主姓名］，为什么用<>就不能排除文本框内的［猪主姓名］？

--  作者：Bin
--  发布时间：2014/4/30 16:27:00
--
你忽略了日期判断吧, 两个条件都成立的数据不存在所以没数据吧

--  作者：发财
--  发布时间：2014/4/30 16:46:00
--

两条件成立的数据都存在。

--  作者：Bin
--  发布时间：2014/4/30 16:50:00
--
上个例子看看吧

--  作者：有点甜
--  发布时间：2014/4/30 17:21:00
--

试试改成这样，你最好msgbox一下生成的条件看一下，或者截个图。

DataTables("收购").LoadFilter = "[猪主姓名] <> \'" & xj.Text & "\' And [日期] = #" & vars("adate") & "#"