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

参考

http://www.foxtable.com/help/topics/2490.htm

写成循环，如

Dim ary() As String = {"纤维标签分类", "xxxx分类"}

For Each s As String in ary

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

Next

初学者请先去看视频教程

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

Dim ary() As String = {"纤维标签分类", "xxxx分类"}

For Each s As String in ary

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

    '其余代码

Next

下面的也要写

Case "产品名称"
   
    Dim ary() As String = {"纤维标签分类", "xxxx分类"}
   
    For Each s As String in ary
       
        Dim dr As DataRow = DataTables(s).Find("产品编号 = '" & e.DataRow("产品编号") & "'")
       
       
       
       
       
        '其余代码
       
       
       
    Next
   

你应该去写datarowDeleting事件吧？

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

写到DataColChanged事件去。