Dim str As String = 138271260xx
Forms("窗口1").Controls("Table1").Table.Fill("Select [_Identify], [订货人], [订货单位], [货物名称], [单价] From {销售订单} Where 订货人手机号 = '" & str & "'", false)
http://www.foxtable.com/webhelp/scr/2912.htm