以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  增加列需要这么久？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99592)

--  作者：rjh4078 --  发布时间：2017/4/21 20:48:00 --  增加列需要这么久？ Dim tbl As Table=Tables("库存_wlkc") Dim ks As Date=Date.now tbl.fill("sel ect * from{物料资料表}","cte",False) tbl.StopRedraw For Each cn As String In DataTables("仓库").SQLGetValues("仓库名称")     tbl.DataTable.DataCols.add("可用库存_" & cn,Gettype(Double))  next   Dim js As Date=Date.now Dim s As TimeSpan=js-ks tbl.ResumeRedraw MessageBox.show(s.Seconds) 增加了3列 竟然需要40秒 把for循环那段注释掉 输出的结果是0 加上就是40+

--  作者：有点蓝 --  发布时间：2017/4/21 21:32:00 --   单独执行下面代码看要多长时间 Dim Products As List(Of String) = DataTables("仓库").SQLGetValues("仓库名称")

--  作者：rjh4078 --  发布时间：2017/4/22 11:42:00 --   0秒

--  作者：有点蓝 --  发布时间：2017/4/22 12:03:00 --   单独执行下面的呢 Dim tbl As Table=Tables("库存_wlkc") tbl.fill("sel ect * from{物料资料表}","cte",False)