[求助]嵌套循环如何做？？？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]嵌套循环如何做？？？？

共有3559人关注过本帖树形打印复制链接主题：[求助]嵌套循环如何做？？？？

有点甜

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

加好友

发短信

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

Post By：2014/7/21 15:52:00 [显示全部帖子]

Dim t1 As Table = Tables("表A")
Dim t2 As Table = Tables("表B")
For i As Integer = 0 To t1.GetCheckedRows.count - 1
    Dim nr As Row = t2.AddNew
    For j As Integer = 0 To 1
        nr(j) = t1.GetCheckedRows(i)(j)
    Next
Next

有点甜

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

加好友

发短信

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

Post By：2014/7/21 16:01:00 [显示全部帖子]

以下是引用aalons在2014-7-21 15:57:00的发言：
能不能按照我的思路帮我改下啊

无法理解你的思路。

有点甜

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

加好友

发短信

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

Post By：2014/7/21 16:09:00 [显示全部帖子]

以下是引用aalons在2014-7-21 16:06:00的发言：
就是在表B中的第一行随意输入表A的列名，然后点击按钮能根据选择的数据对应填充啊

Dim t1 As Table = Tables("表A")
Dim t2 As Table = Tables("表B")
Dim fr As Row = t2.Rows(0)
For i As Integer = 0 To t1.GetCheckedRows.count - 1
    Dim nr As Row = t2.AddNew
    For j As Integer = 0 To t2.Cols.Count - 1
        nr(j) = t1.GetCheckedRows(i)(fr(j))
    Next
Next

下一主题 >> << 上一主题

主题：[求助]嵌套循环如何做？？？？