以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  添加  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55581)
--  作者：tujiu
--  发布时间：2014/8/19 16:07:00
--  添加

在添加窗口中，控件的name和Table表中的列名是一样的，我想通过for each 的方式添加数据，代码怎么写？
--  作者：Bin
--  发布时间：2014/8/19 16:08:00
--  
for each dc as datacol in datatables(X).datacols
   e.form.controls(dc.name)=tables(X).current(dc.name)
next

这个意思吗?
--  作者：Bin
--  发布时间：2014/8/19 16:08:00
--  
for each dc as datacol in datatables(X).datacols
   e.form.controls(dc.name).text=tables(X).current(dc.name)
next
--  作者：有点甜
--  发布时间：2014/8/19 16:09:00
--  
Dim nr As Row = Tables("表a").AddNew
For Each c As Col In Tables("表A").Cols
    nr(c.Name) = e.Form.controls(c.Name).Text
Next