Dim Filter As String = "产品名称 = '" & e.Table.Current("产品名称") & "'"
......
Dim Filter As String = "产品= '" & e.Table.Current("产品") & "'"