主题：[求助]表与控件之间生成求指导

参考

Dim t1 As Table = Tables("学生表")
Dim t2 As Table = Tables("学费表")
DataTables("收费任务").datarows.clear
For Each r1 As Row In t1.Rows
    For Each r2 As Row In t2.Rows
        Dim ndr = DataTables("收费任务").addnew
        ndr("学生编码") = r1("学生编号")
        ndr("收费名称") = r2("学费名称")
    Next
Next

Dim t1 As Table = Forms("窗口").Controls("学生").Table
Dim t2 As Table = Forms("窗口").Controls("收费任务").Table
Dim cbx As WinForm.CheckedListBox = Forms("窗口").Controls("学费")
DataTables("收费任务").datarows.clear

For Each r1 As Row In t1.GetCheckedRows
    For i As Integer = 0 To cbx.Items.count-1
        If cbx.GetItemChecked(i) = True Then
            Dim r2 = cbx.Items(i)
            Dim ndr = t2.addnew
            ndr("学生编码") = r1("学生编号")
            ndr("收费名称") = r2("学费名称")
        End If
    Next
Next