以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  提取数据 我的代码是没有问题 可是速度太慢 代码如下？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160024)

--  作者：jswjyjf --  发布时间：2021/1/18 10:10:00 --  提取数据 我的代码是没有问题 可是速度太慢 代码如下？ 提取数据 我的代码是没有问题 可是速度太慢 代码如下？  有没有好的方法 在后台直接提取 谢谢 DataTables("制令单明细").DeleteFor("") For Each dr As DataRow In DataTables("物料清单").sqlSelect("成品料号=\'" & e.Form.Controls("ComboBox4").value & "\'")   Dim r As Row =Tables("制令单明细").AddNew()         r("单据号") = Tables("制令单").current("单据号")         r("产品编码") = dr("产品编码")         r("产品名称") = dr("产品名称")        r("单位用量") = dr("单位用量")         r("工单用量") = dr("单位用量")*e.Form.Controls("textbox2").value         r("料号") =e.Form.Controls("ComboBox4").value         r("单位") = dr("单位") Next

--  作者：有点蓝 --  发布时间：2021/1/18 10:19:00 --   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