| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86117) |
| -- 作者：cy-sfdz -- 发布时间：2016/6/11 9:06:00 -- [求助] 如果在一个表中实现某列的值为本表所填入的另一个表中某列的值对应所在行的某列值，比如在学生成绩表中，有学号列和姓名列，还有学生档案表也有学号列和姓名列，希望实现在学生成绩表中填入学号列，自动带出姓名，如何实现啊 |
| -- 作者：sjx71 -- 发布时间：2016/6/11 13:50:00 -- 在 学生成绩表 中的 DataColChanged 事件中加入下面代码即可 Select Case e.DataCol.Name
Case "学号"
If e.NewValue Is Nothing Then \'如果新值是空白,也就是姓名列的内容为空
e.DataRow("姓名") = Nothing Else
Dim dr As DataRow = DataTables("学生档案").find("学号 = " & e.DataRow("学号") & "\'")
If dr IsNot Nothing Then
e.DataRow("姓名") = dr("姓名")
End If
End if
End Select [此贴子已经被作者于2016/6/11 22:41:51编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/6/11 14:13:00 -- 参考
http://www.foxtable.com/help/topics/1451.htm
|