主题：选择列，明细查询

老师这里选择列表单，，下面出库明细就把明细筛选出来

 

Dim t As Table = Tables("出库明细")
     With Tables("出库列表")
         If .Current Is Nothing Then
             t.Filter = "False"
          Else
             t.Filter = "出库单号= " & .Current("出库单号")
         End If
     End With

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


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