以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表与控件之间生成求指导  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126958)
--  作者：mrlua88
--  发布时间：2018/11/1 17:41:00
--  [求助]表与控件之间生成求指导
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


想过收费表的收费项目 + 学生表 生成收款表内容。
参考过部分教程，做到批量插入学生或批量插入收费项目。单只能单行，根据选择的学生及选择收费项目生成，每个学生完整的，收费表。

[此贴子已经被作者于2018/11/1 18:20:55编辑过]
--  作者：有点甜
--  发布时间：2018/11/1 18:47:00
--  

参考

 

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
--  作者：mrlua88
--  发布时间：2018/11/2 10:45:00
--  
谢谢，完美解决，多谢甜大师图片点击可在新窗口打开查看 指导，实现了勾选多个不同行的学生，及不同时期学费的生成。活灵活现。
[此贴子已经被作者于2018/11/2 10:45:36编辑过]
--  作者：有点甜
--  发布时间：2018/11/2 10:58:00
--  

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