Foxtable(狐表)用户栏目专家坐堂 → 跨表引用列


  共有8454人关注过本帖树形打印复制链接

主题:跨表引用列

帅哥哟,离线,有人找我吗?
良才
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
跨表引用列  发帖心情 Post By:2013/4/12 16:56:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:学生缴费信息.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:学生成绩.png
图片点击可在新窗口打开查看

怎样把学生缴费信息表行内容:学期、年级、班级、学生编号、学生姓名五列,引用到学生生成绩表
学期、年级、班级、学生编号、学生姓名五列中,请高手指点。


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
XYT
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1418 积分:7167 威望:0 精华:0 注册:2013/3/18 8:37:00
  发帖心情 Post By:2013/4/12 17:12:00 [只看该作者]

2楼简单快捷

[此贴子已经被作者于2013-4-12 17:34:35编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2013/4/12 17:33:00 [只看该作者]

好的,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2013/4/13 10:04:00 [只看该作者]

是不是在学生成绩表事件DataColChanged写?

 要求学生成绩表行数和学生缴费信息行数同等并自动更新。

[此贴子已经被作者于2013-4-13 10:07:54编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/13 10:07:00 [只看该作者]

弄个按钮 代码放近Click事件.一点就会全部添加进去 成绩表了.


 回到顶部
帅哥哟,离线,有人找我吗?
良才
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2013/4/13 10:13:00 [只看该作者]

太谢谢!

 


 回到顶部
帅哥哟,离线,有人找我吗?
良才
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2013/4/13 12:02:00 [只看该作者]

如果只加载一年级,代码应该怎样加?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
XYT
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1418 积分:7167 威望:0 精华:0 注册:2013/3/18 8:37:00
  发帖心情 Post By: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

参考一下

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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

 回到顶部
总数 20 1 2 下一页