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

红色代码的空格去掉，doubleClick事件

Dim q As new QueryBuilder
q.TableName = e.Row("第一列") & "订单详情"
q.SelectString = "S elect * f rom {表B} where 第一列 = '" & e.Row("第一列") & "'"
q.Build
MainTable = Tables(q.TableName)

http://www.foxtable.com/help/topics/0695.htm

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)