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


  共有2377人关注过本帖平板打印复制链接

主题:跨表引用录入

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


加好友 发短信
等级:小狐 帖子:393 积分:3559 威望:0 精华:0 注册:2016/11/12 18:42:00
跨表引用录入  发帖心情 Post By:2020/12/18 16:40:00 [只看该作者]

如何跨表引用录入,在“”特体学生”表中,当选择班级时引用“学生信息”表中的信息,出现对应的学生,选择学生后能讲给学生的相关性信息填到“特体学生表中那个对应的列中”
现在当选择了班级时,无法出现该班的学生。
If e.DataCol.Name = "班级" Then
    If e.NewValue Is Nothing Then
        e.DataRow("学生姓名") = Nothing
         e.DataRow("身份证号码") = Nothing
       e.DataRow("身份证号码") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("学生信息").Find("[班级] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("身份证号码") = dr("身份证件号")
            e.DataRow("民族") = dr("民族")
            e.DataRow("性别") = dr("性别")
          e.DataRow("出生日期") = dr("出生日期")
        End If
    End If
End If

 回到顶部