- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]跨表引用问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175842)
-- 发布时间：2022/3/21 16:54:00
-- [求助]跨表引用问题
求助：如何引用“生成考室考号”表数据，在“班级安排表”中，自动生成“语数外”下面的考室、座号、考室地点“数据？引用根据“生成考室考号“表中“准考证号“和”类别“（类别中有“语数外”数据）。谢谢！好久未用狐表了，一切都显得陌生了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:312.table |
-- 发布时间：2022/3/21 17:05:00
--
Dim rr As DataRow
For Each dr As DataRow In DataTables("生成考室考号").Select("类别=\'语数外\'")
rr = DataTables("班级安排表").Find("考试科目_准考证号=\'" & dr("准考证号") & "\'")
If rr Is Nothing Then
rr = DataTables("班级安排表").addnew
rr("考试科目_准考证号") = dr("准考证号")
End If
rr("语数外_考室") = dr("考室")
rr("语数外_座号") = dr("座号")
Next
-- 发布时间：2022/3/21 17:15:00
--
谢谢蓝版！
-- 发布时间：2022/3/22 10:58:00
--
再次麻烦一下老师，引用出问题了。
\'语数外
Dim kk As DataRow
For Each dr
As DataRow In DataTables("生成考室考号").Select("类别=\'语数外\'")
kk = DataTables("考室名单").Find("考场位置_考室=\'"
& dr("考室") &
"\'" And
"考场位置_座号=\'" &
dr("座号")
& "\'")
If kk Is Nothing Then
kk = DataTables("考室名单").addnew
kk("考场位置_考室") = dr("考室")
kk("考场位置_座号") = dr("座号")
End If
kk("语数英_班级") = dr("班")
kk("语数英_姓名") = dr("姓名")
kk("语数英_准考证号") = dr("准考证号")
Next
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:312 (1).table |
-- 发布时间：2022/3/22 11:07:00
--
参考：http://www.foxtable.com/webhelp/topics/1284.htm
-- 发布时间：2022/3/22 11:26:00
--
谢谢老师指点！