dim sql as string = "insert into 制令单明细(单据号,产品编码,产品名称,单位用量,工单用量,料号,单位) select '" & Tables("制令单").current("单据号") & "',产品编码,产品名称,单位用量,单位用量*" & e.Form.Controls("textbox2").value & ",'" & e.Form.Controls("ComboBox4").value & "',单位 from 物料清单 where 成品料号='" & e.Form.Controls("ComboBox4").value & "'"
http://www.foxtable.com/webhelp/topics/0696.htm