专家坐堂-关联跳转Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关联跳转  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161212)

--  作者：nxdx112
--  发布时间：2021/3/10 9:07:00
--  关联跳转
两个表之间数据，当选择("是否发放资助") = "是" 能否跳转到对应刚添加新行的那个表"学生资助"对应的行？？？
If e.DataCol.Name = "是否发放资助" AndAlso e.DataRow("是否发放资助") = "是" Then
Dim nma() As String = {"学生姓名","学籍号","性别","身份证号码","发放金额","是否寄宿生","户籍性质","中小学","年级","班级","资助依据"} \'A表数据来源列
Dim nmb() As String = {"姓名","学籍号","性别","身份证号码","发放金额","寄宿情况","户口性质","中小学","年级","班级","信息来源类型" } \'B表数据接收列
Dim dr As DataRow = DataTables("学生资助").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next

End If

[此贴子已经被作者于2021/3/10 9:07:06编辑过]

--  作者：有点蓝
--  发布时间：2021/3/10 9:10:00
--

If e.DataCol.Name = "是否发放资助" AndAlso e.DataRow("是否发放资助") = "是" Then
Dim nma() As String = {"学生姓名","学籍号","性别","身份证号码","发放金额","是否寄宿生","户籍性质","中小学","年级","班级","资助依据"} \'A表数据来源列
Dim nmb() As String = {"姓名","学籍号","性别","身份证号码","发放金额","寄宿情况","户口性质","中小学","年级","班级","信息来源类型" } \'B表数据接收列

Dim dr As Row = Tables("学生资助").AddNew
   For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
MainTable = Tables("学生资助")
End If