添加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有2493人关注过本帖树形打印复制链接主题：添加

tujiu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：120 积分：1100 威望：0 精华：0 注册：2014/7/17 9:46:00

添加

Post By：2014/8/19 16:07:00 [只看该作者]

在添加窗口中，控件的name和Table表中的列名是一样的，我想通过for each 的方式添加数据，代码怎么写？

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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)

这个意思吗?

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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)

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

主题：添加