两个表的数据如何自动更新？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你应该去写datarowDeleting事件吧？

Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}
For Each s As String In ary
DataTables(s).DeleteFor("产品编号= '" & e.DataRow("产品编号") & "'")
Next

我写的就是datarowDeleting，

删除产品编号，其他表的产品也随着删除，这个我能做到，

我想要的是，删除主表的产品边和、产品名称，其他表的产品编号和产品名称也能随着删除，所以我用了case事件

Select Case e.DataCol.name

Case "产品编号"

Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}

For Each s As String In ary

Dim dr As DataRow = DataTables(s).Find("产品编号= '" & e.DataRow("产品编号") & "'")

If dr IsNot Nothing Then

dr.Delete()

End If

Case "产品名称"

Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}

For Each s As String In ary

Dim dr As DataRow = DataTables(s).Find("产品名称= '" & e.DataRow("产品名称") & "'")

If dr IsNot Nothing Then

dr.Delete()

End If

End Select

此主题相关图片如下：小q截图-20151112131118.png

写到DataColChanged事件去。

Select Case e.DataCol.name
    Case "产品编号"
        Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}
        For Each s As String In ary
            DataTables(s).DeleteFor("产品编号= '" & e.oldvalue & "'")
        Next
End Select

您好，DataChanged事件的代码和相对应的功能已经实现了。

DataDeleting事件中，已经实现的是，当删除（纤维产品详情）的产品编号时，后面的表也会跟着删除相对应的产品编号，

但是，当删除（纤维产品详情）的产品名称时，后面的表里的相对应的产品名称里的数据，没有跟着删除，这个还没有实现

[此贴子已经被作者于2015/11/14 9:36:24编辑过]

以下是我之前写的DataDeleting事件的代码和相对应的提示，麻烦提示一下，谢谢。

Select Case e.DataCol.name

Case "产品编号"

Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}

For Each s As String In ary

Dim dr As DataRow = DataTables(s).Find("产品编号= '" & e.DataRow("产品编号") & "'")

If dr IsNot Nothing Then

dr.Delete()

End If

Case "产品名称"

Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}

For Each s As String In ary

Dim dr As DataRow = DataTables(s).Find("产品名称= '" & e.DataRow("产品名称") & "'")

If dr IsNot Nothing Then

dr.Delete()

End If

End Select

代码仍然是放在DataChanged事件中，加个判断

Select Case e.DataCol.name

Case "产品编号"

If e.NewValue Is Nothing Then

Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}

For Each s As String In ary

Dim dr As DataRow = DataTables(s).Find("产品编号= '" & e.DataRow("产品编号") & "'")

If dr IsNot Nothing Then

dr.Delete()

End If

.........

Select Case e.DataCol.name

Case "产品编号"

If e.NewValue Is Nothing Then

Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}

For Each s As String In ary

Dim dr As DataRow = DataTables(s).Find("产品编号= '" & e.DataRow("产品编号") & "'")

If dr IsNot Nothing Then

dr.Delete()

End If

Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}

For Each s As String In ary

Dim dr As DataRow = DataTables(s).Find("产品编号 = '" & e.OldValue & "'")

If dr Is Nothing Then

dr = DataTables(s).AddNew()

dr("产品编号") = e.DataRow("产品编号")

dr("产品名称") = e.DataRow("产品名称")

Else

dr("产品编号") = e.DataRow("产品编号")

End If

Case "产品名称"

Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}

For Each s As String In ary

Dim dr As DataRow = DataTables(s).Find("产品编号= '" & e.DataRow("产品编号") & "'")

If dr IsNot Nothing Then

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

End If

End Select

以上是我根据提示重新写的代码，以下是保存时的提示，

此主题相关图片如下：小q截图-20151114103337_副本.jpg

另外，我想问一下，加这个判断，好像意思是，如果产品编号新的值是空（也就是删除），那么后面的表，也寻找相应的产品编号，把它删掉，

但我的意图是，当把产品编号和产品名称都删除时，后面的表也要删除掉，而我现在的情况是：

此主题相关图片如下：小q截图-20151114105232.png

[此贴子已经被作者于2015/11/14 10:54:26编辑过]

1. 一个代码段内尽量避免重复定义同一个名称，ary名称重复使用了

2. 判断几个名称就加几个判断

If e.NewValue Is Nothing AndAlso e.DataRow.IsNull("产品名称") Then

同样，在Case "产品名称"下面也要做类似的判断

--------------------------------------------------

初学者建议先看一下视频教程

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

[此贴子已经被作者于2015/11/14 11:15:57编辑过]

主题：两个表的数据如何自动更新？