主题：数据导入

此主题相关图片如下：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

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

 DataTables("供应商订货明细表").loadfilter = "欠货数量 > 0 and 供应商名称 = '" & Tables("供应商订货总表").Current("供应商名称") & "'"
老师，还是显示不对，我之前就这样试过的

 

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

 

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

打开之后就不对

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

currentChanged事件改成

 

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

 

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