以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  跨表引用录入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159250)
--  作者：nxdx112
--  发布时间：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
--  作者：有点蓝
--  发布时间：2020/12/18 16:41:00
--  
一个班级有很多学生，找哪一个学生啊。应该是使用身份证关联吧
--  作者：nxdx112
--  发布时间：2020/12/18 16:44:00
--  
在“学生姓名”列自动列出该班的学生，当选择某一人时，自动引用填写该学生的其他信息到表中
--  作者：有点蓝
--  发布时间：2020/12/18 16:51:00
--  
没看懂，截图说明一下
--  作者：nxdx112
--  发布时间：2020/12/18 17:03:00
--  
在“学生姓名”列自动列出该班的学生，当选择某一人时，自动引用填写该学生的其他信息到表中

[此贴子已经被作者于2020/12/18 17:19:45编辑过]
--  作者：有点蓝
--  发布时间：2020/12/18 17:12:00
--  
参考：http://www.foxtable.com/webhelp/topics/1457.htm