Foxtable(狐表)用户栏目专家坐堂 → 数据添加填充为空


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

主题:数据添加填充为空

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


加好友 发短信
等级:童狐 帖子:241 积分:2569 威望:0 精华:0 注册:2018/1/11 14:52:00
数据添加填充为空  发帖心情 Post By:2018/7/2 11:23:00 [显示全部帖子]

各位老师,运行数据填充代码,将“全级学生”表中符合条件的学号,填充到“成绩总表”中。运行结果没有填充,不知道问题出在哪了?

'---------------------------------跨表引用

Dim Cols30() As String = {"学号"}
Dim Cols40() As String = {"学号"}
For Each dr20 As DataRow In DataTables("成绩总表").DataRows   '需要填充的表
    For Each dr21 As DataRow In DataTables("全级学生").Select("[班级] = '" & dr20("班级") & "' and [姓名] = '" & dr20("姓名") & "'")    '模板母表
        For i As Integer = 0 To Cols30.Length -1 
            dr20(Cols40(i)) = dr21(Cols30(i))
        Next
    Next
Next



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


加好友 发短信
等级:童狐 帖子:241 积分:2569 威望:0 精华:0 注册:2018/1/11 14:52:00
  发帖心情 Post By:2018/7/2 11:37:00 [显示全部帖子]

找到问题了,谢谢

 回到顶部