主题：字符串与表达式

With Tables("订单跟踪表")

   If .Current IsNot Nothing Then '

       Dim Filter As String

       Filter = "产品名称 = '" & .Current("产品名称") & "'"

       Tables("详细信息_Table1").fill("Select * Fro m {出货记录} Where " & Filter , "rx", True)

       Tables("详细信息_Table1").Sort= "出货日期 desc"

       Tables("详细信息_Table1").DataTable.DataCols("总数量").Caption = "订单数量"

       Tables("详细信息_Table1").DataTable.BuildHeader()

        MessageBox.Show(filter)

'       Tables("详细信息_Table1").DataTable.LoadFilter = Filter

'       Tables("详细信息_Table1").DataTable.Load

   End If

End With