主题：双击生成一个临时表

Dim q As new QueryBuilder
Dim r As Row = e.Table.Current
q.TableName = e.Row("第一列") & "派工表"
q.SelectString = "S elect * f rom {派工表} where 客户信息 like '%" & r("第一列") & "%'"
q.Build
MainTable = Tables(q.TableName)