以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码错误指正  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37835)
--  作者：zbsdkq012890
--  发布时间：2013/7/12 15:32:00
--  代码错误指正

Dim dr As DataRow
dr = DataTables("配方").AddNew(20)\'在配方表中新增20行
dr("产品名称") =DataTables("产品").datarows(DataTables("产品").datarows.Count-1)("名称")\'将名称列填写为新增产品的名称
dr("编号") =DataTables("产品").datarows(DataTables("产品").datarows.Count-1)("编号")\'将编号列填写为新增产品的编号

 

上边的代码有一个问题，就是新增的20行只有第一行实现了 “产品名称列”和“编码列”的自动填充，其余19行还是空白，请求大师们帮小弟看看，上边代码的错误之处该怎么改。
--  作者：Bin
--  发布时间：2013/7/12 15:35:00
--  
for i as integer = 1 to 20 
Dim dr As DataRow
dr = DataTables("配方").AddNew()
dr("产品名称") =DataTables("产品").datarows(DataTables("产品").datarows.Count-1)("名称")\'将名称列填写为新增产品的名称
dr("编号") =DataTables("产品").datarows(DataTables("产品").datarows.Count-1)("编号")\'将编号列填写为新增产品的编号
next
[此贴子已经被作者于2013-7-12 15:47:02编辑过]
--  作者：zbsdkq012890
--  发布时间：2013/7/12 15:46:00
--  

应该是next结尾，而不是end if。不过还是非常谢谢你啊！

 
--  作者：Bin
--  发布时间：2013/7/12 15:47:00
--  
图片点击可在新窗口打开查看晕死,这种小错误都犯!   居然还有错别字,图片点击可在新窗口打开查看
[此贴子已经被作者于2013-7-12 15:47:40编辑过]