主题：[求助] 查询历史记录

版主，这个图中是一piao出货记录，想实双击某条记录后，出现这个产品以前的包装历史记录包括boxno,shipppingno以及和哪些产品装在一起的清单。以下代码该如何修改。谢谢。

 

If e.Table.Current Is Nothing Then Return

Dim wz As Integer = Tables("Packinglist").FindRow("GSSPartNo='" & e.Table.Current("boxno") &"'")
If wz >=0 Then
    Tables("Packinglist").Position = wz
End If

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

Dim wz As Integer = Tables("Packinglist").FindRow("GSSPartNo='" & e.Table.Current("GSSPartNo") &"'")

谢谢，这个是指到找到的这个记录，可不可以这个明细只出现这个产品以前包装过的相关的箱号的记录，多余的不需要呢？只要装在一个箱中的都需显示

没看懂，截图说明一下

版主，如果双击记录CH_000121 就出现这种结果如图，这个产品以前其它产品装要哪些boxno中。

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

通过什么条件可以知道那些是以前的boxno？设置筛选条件咯

版主，只知道GSSPartNo,就能找出这个GSSPartNo跟以前哪些产品合装过吗？

 

直接筛选某表，条件设置成 GSSPartNo='xxxx' 不就行了？

但是这个GSSPartNo装在该boxno中的其它GSSPartno就没有显示了。 想知道这个GSSPartNO,以前装过的Boxno，还有哪些其它GSSPartno。

 

根据 GSSPartNo 查找 Boxno，然后筛选 Boxno

 

Dim s = DataTables("表A").GetComboListString("Boxno", "GSSPartNo='" & xxx & "'")
s = s.replace("|", "','")
Tables("表B").filter = "Boxno in ('" & s & "')"