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

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编辑过]

主题：数据导入