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

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

能不能按照我的思路帮我改下啊

 

无法理解你的思路。

就是在表B中的第一行随意输入表A的列名，然后点击按钮能根据选择的数据对应填充啊

就是在表B中的第一行随意输入表A的列名，然后点击按钮能根据选择的数据对应填充啊，填充数据从表B的第二行开始

 

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

谢谢 终于改好了，没有你的提示我怎么也不会这么想，唉  厉害啊  跪谢