以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]drs=datatables("表A").addnew(10)这样不行吗?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=41954)

--  作者:loongtai
--  发布时间:2013/10/31 8:14:00
--  [求助]drs=datatables("表A").addnew(10)这样不行吗?
如题:
dim drs as new list(of datarow)
drs=datatables("表A").addnew(10)   \'将新增的10行赋值给集合drs.
可是运行时报错如下:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20131031081258.jpg
图片点击可在新窗口打开查看



--  作者:Bin
--  发布时间:2013/10/31 8:15:00
--  
增加10行并不会返回一个10行的集合!
--  作者:loongtai
--  发布时间:2013/10/31 9:45:00
--  
那如何将新增的这10行添加到drs里?
--  作者:Bin
--  发布时间:2013/10/31 9:48:00
--  
循环添加10行 一个个添加进去

for i as integer as 0 to 9 
   dim dr as datarow = datatables("A").addnew
   drs.add(dr)
next

--  作者:狐狸爸爸
--  发布时间:2013/10/31 9:48:00
--  
Dim cnt As Integer = DataTables("表A").dataRows.Count
DataTables("表A").AddNew(10)
For i As Integer = cnt To DataTables("表A").dataRows.Count  -1
   DataTables("表A").dataRows(i)("第一列") = "新增"
Next