专家坐堂-数据导入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=113802)

--  作者：outcat
--  发布时间：2018/1/23 13:16:00
--  数据导入

此主题相关图片如下：112.png

我要在上图的订单明细表中，当欠货数量=0，就不要显示了，写了下面的代码，出错了

AfterLoad代码

DataTables("供应商订货总表").loadfilter = "核销 = false and 供应商名称 = \'" & Tables("供应商回货总表").Current("供应商名称") & "\'"

DataTables("供应商订货总表").load

If Tables("供应商订货总表").Current IsNot Nothing Then

Dim r As Integer

    r= DataTables("客户订货明细表").Current("(欠货数量)","订货单号 = \'" & Tables("客户订货总表").Current("订货单号") & "\'")

    DataTables("供应商订货明细表").loadfilter = " r > 0 And 供应商名称 = \'" & Tables("供应商订货总表").Current("供应商名称") & "\'"

    DataTables("供应商订货明细表").load

Else

    DataTables("供应商订货明细表").loadfilter = "供货商名称 Is null"

    DataTables("供应商订货明细表").load

End If

--  作者：有点甜
--  发布时间：2018/1/23 14:30:00
--
If Tables("供应商订货总表").Current IsNot Nothing Then
    DataTables("供应商订货总表").loadfilter = "核销 = false and 供应商名称 = \'" & Tables("供应商回货总表").Current("供应商名称") & "\'"

    DataTables("供应商订货总表").load

    \'Dim r As Integer
    \'r= DataTables("客户订货明细表").compute("sum(欠货数量)","订货单号 = \'" & Tables("客户订货总表").Current("订货单号") & "\'")

    DataTables("供应商订货明细表").loadfilter = "欠货数量 > 0 and 供应商名称 = \'" & Tables("供应商订货总表").Current("供应商名称") & "\'"

    DataTables("供应商订货明细表").load

Else

    DataTables("供应商订货明细表").loadfilter = "供货商名称 Is null"

    DataTables("供应商订货明细表").load
End If

[此贴子已经被作者于2018/1/23 14:29:54编辑过]

--  作者：outcat
--  发布时间：2018/1/23 15:42:00
--
DataTables("供应商订货明细表").loadfilter = "欠货数量 > 0 and 供应商名称 = \'" & Tables("供应商订货总表").Current("供应商名称") & "\'"
老师，还是显示不对，我之前就这样试过的

--  作者：有点甜
--  发布时间：2018/1/23 15:45:00
--

以下是引用outcat在2018/1/23 15:42:00的发言：
DataTables("供应商订货明细表").loadfilter = "欠货数量 > 0 and 供应商名称 = \'" & Tables("供应商订货总表").Current("供应商名称") & "\'"
老师，还是显示不对，我之前就这样试过的

1、打开之后就不对，还是说你点击不同行之后才不对？

2、你在currentChanged事件写了什么代码？

--  作者：outcat
--  发布时间：2018/1/23 15:55:00
--

打开之后就不对

If Tables("供应商订货总表").Current IsNot Nothing Then
    DataTables("供应商订货明细表").loadfilter="订货单号=\'" & Tables("供应商订货总表").Current("订货单号") & "\'"
    DataTables("供应商订货明细表").load
End If

--  作者：有点甜
--  发布时间：2018/1/23 15:59:00
--

currentChanged事件改成

If Tables("供应商订货总表").Current IsNot Nothing Then
    DataTables("供应商订货明细表").loadfilter="欠货数量 > 0 and 订货单号=\'" & Tables("供应商订货总表").Current("订货单号") & "\'"
    DataTables("供应商订货明细表").load
End If

如果还是不对，截图或实例说明一下。