- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表与控件之间生成求指导 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126958)
-- 发布时间：2018/11/1 17:41:00
-- [求助]表与控件之间生成求指导
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
-- 发布时间：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
-- 发布时间：2018/11/2 10:45:00
--
谢谢，完美解决，多谢甜大师
指导，实现了勾选多个不同行的学生，及不同时期学费的生成。活灵活现。
-- 发布时间：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