专家坐堂-跨表引用数据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=151593)

--  作者：BG小白
--  发布时间：2020/6/29 4:00:00
--  跨表引用数据

Select Case e.DataCol.Name
Case "SPDM"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("SPDM") Then
dr("KCSL") = Nothing
Else
Dim filter As String
filter = ("spdm=\'" & dr("SPDM") & "\' and GG1DM=\'" & dr("GG1DM") & "\' and GG2DM=\'" & dr("GG2DM") & "\'")
pr = DataTables("SPCKB").Find(filter)
If pr IsNot Nothing Then
dr("KCSL") = pr("SL")
End If
End If
End Select

为什么这段代码没有效果的，不会出现引用的SL

--  作者：linyunu
--  发布时间：2020/6/29 8:12:00
--
已有的数据，选中SPDM列，重置一下列
表DataColChanged
Select Case e.DataCol.Name
Case "SPDM"
If e.DataRow.IsNull("SPDM") Then
e.DataRow("KCSL") = Nothing
Else
Dim pr As DataRow = DataTables("SPCKB").Find("spdm=\'" & e.NewValue & "\' and GG1DM=\'" & e.DataRow("GG1DM") & "\' and GG2DM=\'" & e.DataRow("GG2DM") & "\'")
If pr IsNot Nothing Then
e.DataRow("KCSL") = pr("SL")
End If
End If
End Select

[此贴子已经被作者于2020/6/29 8:11:50编辑过]

--  作者：BG小白
--  发布时间：2020/6/29 14:24:00
--
谢谢
[此贴子已经被作者于2020/6/29 14:29:36编辑过]

--  作者：BG小白
--  发布时间：2020/6/29 14:42:00
--
貌似哪里不对哦，不能每次都重置列吧

--  作者：有点蓝
--  发布时间：2020/6/29 14:47:00
--
更新代码后，已有的数据重置一下列，以后新增的数据会自动计算

--  作者：BG小白
--  发布时间：2020/6/29 14:52:00
--
我这个表是临时表，数据是取值过来的，是不是只能每次重置列了，有没有其他办法呢，比如我一楼的代码就不用重置列

--  作者：有点蓝
--  发布时间：2020/6/29 15:05:00
--
代码都一样，没有区别