Dim Filter As String = "订单号 = " & e.Table.Current("订单号")
改成
Dim Filter As String = "订单号 = '" & e.Table.Current("订单号") & "'"