主题：筛选的问题

改成这样

Dim t As Table = Tables("窗口_Table1")
Dim ids As String = t.DataTable.GetComboListString("_Identify", "张数 is null")
ids = "-1," & ids.Replace("|", ",")
ids = ids.trim(",")
t.Filter = "_Identify in (" & ids & ")"
For Each r As Row In t.rows
    Dim cn As Integer= Tables("出库单明细").Compute("Count(出库单号)","[出库单号] = '" & r("出库单号")  & "'")
    Dim Val As Double=cn/10
    Dim lng As Integer= Math.Ceiling(Val)
    r("张数")=lng
Next