If CurrentTable.Cols.Contains("回单") Then
CurrentTable.DataTable.Save
CurrentTable.DataTable.ReplaceFor("回单", "回单", iif(CurrentTable.Filter>"",CurrentTable.Filter,"1=1") & " and 回单 is not null")
End If
With DataTables("应收查询")
.DataCols("吨位2").Caption = "吨位"
.DataCols("扣款2").Caption = "扣款"
.DataCols("价格2").Caption = "价格"
.BuildHeader()
End With
Dim l As Integer =CurrentTable.LeftCol
Dim r As Integer = CurrentTable.RightCol
For Each c As Col In CurrentTable.cols
If c.index < l OrElse c.Index > r Then
c.Visible=False
End If
Next
CurrentTable.Print(True,False)
For Each c As Col In CurrentTable.cols
c.Visible=True
Next
If CurrentTable.Cols.Contains("回单") Then
CurrentTable.DataTable.RejectChanges
End If