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

代码放到《监理招标信息表》DataColChanged事件

Select Case e.DataCol.name

Case "审核"

Dim dr As DataRow = DataTables("监理投标资料汇总").Find("项目名称 = '" & e.DataRow("项目名称") & "'")

If e.NewValue <> "通过" Then

dr.Delete

Return

ElseIf dr Is Nothing

dr = DataTables("监理投标资料汇总").AddNew()

dr("项目名称") = e.DataRow("项目名称")

End If

dr("归属部门") = e.DataRow("归属部门")

dr("评标方式") = e.DataRow("评标方式")

dr("开标日期") = e.DataRow("开标日期")

Case "归属部门","评标方式","开标日期","项目名称"

If e.DataRow("审核") = "通过" Then

Dim name As String = iif(e.DataCol.name = "项目名称", e.OldValue ,e.DataRow("项目名称"))

Dim dr As DataRow = DataTables("监理投标资料汇总").Find("项目名称 = '" & name & "'")

If dr IsNot Nothing Then

dr(e.DataCol.Name) = e.NewValue

End If

End Select

ZJZK2015	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	二个表之间的数据关联问题 Post By：2016/10/14 20:53:00 [只看该作者] 用户已被锁定

主题：二个表之间的数据关联问题