主题：更改列内容

 你在打印按钮那里，遍历打印的行，分别修改就行。

 具体问题，请上传例子。

在最后加入代码

CurrentTable.DataTable.ReplaceFor("回单", "回单", iif(CurrentTable.Filter>"",CurrentTable.Filter,"1=1") & " and 回单 is not null")

 那你就在前面加入

CurrentTable.DataTable.Save

CurrentTable.DataTable.ReplaceFor("回单", "回单", iif(CurrentTable.Filter>"",CurrentTable.Filter,"1=1") & " and 回单 is not null")

 在后面加入

CurrentTable.DataTable.RejectChanges

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