- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 跨表引用列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31292)
-- 发布时间：2013/4/12 16:56:00
-- 跨表引用列
此主题相关图片如下：学生缴费信息.png
此主题相关图片如下：学生成绩.png
怎样把学生缴费信息表行内容：学期、年级、班级、学生编号、学生姓名五列，引用到学生生成绩表
：学期、年级、班级、学生编号、学生姓名五列中，请高手指点。
-- 发布时间：2013/4/12 17:09:00
--
For Each dr As DataRow In DataTables("学生缴费信息").DataRows
Dim dr2 As DataRow = DataTables("学生成绩").AddNew
dr2("学期")=dr("学期")
dr2("年级")=dr("年级")
dr2("班级")=dr("班级")
dr2("学生编号")=dr("学生编号")
dr2("学生姓名")=dr("学生姓名")
Next
-- 发布时间：2013/4/12 17:12:00
--
2楼简单快捷
[此贴子已经被作者于2013-4-12 17:34:35编辑过]
-- 发布时间：2013/4/12 17:33:00
--
好的，谢谢
-- 发布时间：2013/4/13 10:04:00
--
是不是在学生成绩表事件DataColChanged写？
要求学生成绩表行数和学生缴费信息行数同等并自动更新。
[此贴子已经被作者于2013-4-13 10:07:54编辑过]
-- 发布时间：2013/4/13 10:07:00
--
弄个按钮 代码放近Click事件.一点就会全部添加进去 成绩表了.
-- 发布时间：2013/4/13 10:13:00
--
太谢谢！
-- 发布时间：2013/4/13 12:02:00
--
如果只加载一年级，代码应该怎样加？谢谢
-- 发布时间：2013/4/13 12:04:00
--
DataColChanged事件代码设置为：
Select Case e.DataCol.name
Case "工厂","工段","日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("工厂") = False AndAlso dr.IsNull("工段") = False AndAlso dr.IsNull("日期") =False Then
Dim pr As DataRow = DataTables("工资标准").Find("分厂 = \'" & dr("工厂") & "\' and 工段 = \'" & dr("工段") & "\' And 执行日期 <= #" & dr("日期") & "#", "执行日期 Desc")
If pr IsNot Nothing Then
dr("工资标准") = pr("工资标准")
End If
End If
End Select
-- 发布时间：2013/4/13 12:05:00
--
For Each dr As DataRow In DataTables("学生缴费信息").DataRows
If dr("年级")="一年级" Then
Dim dr2 As DataRow = DataTables("学生成绩").AddNew
dr2("学期")=dr("学期")
dr2("年级")=dr("年级")
dr2("班级")=dr("班级")
dr2("学生编号")=dr("学生编号")
dr2("学生姓名")=dr("学生姓名")
End If
Next