主题：[求助]关于跨表应用更新代码的问题，求大神指教！

我测试还是什么动静都没！

For Each tab As Table In Tables  '遍历Tables

    If tab.Name.Contains("文档")  '判断文档两字的表名

        For i As Integer = 0 To Tables(tab.Name).Rows.Count -1  '从第一行开始到结束行

        Select Case e.DataCol.Name

        Case "品名","型号","规格","单价"

        Dim Filter As String = "[产品编号] = '" & e.DataRow("产品编号") & "'"

        DataTables(tab.Name).ReplaceFor(e.DataCol.Name, e.NewValue, Filter)

        End Select

      Next

    End If

Next

对了，我更新的时候是用遍历同时对多个文档更新内容的，单是你现在这个只能单独解决一个文档的问题，不能像更新一样同时解决所有文档的问题，能不能改一下！谢谢！

还有：Dim Filter As String = "[产品编号] = '" & e.OldValue & "'"

不是！上传的列子我是用订单代替的文档，这样说吧，我订单表有订单001，订单002，订单003……这样下去有多个订单表，

For Each tab As Table In Tables '

If tab.Name.Contains("订单") '

For i As Integer = 0 To Tables(tab.Name).Rows.Count -1 '

Select Case e.DataCol.Name

Case "品名","型号","规格","单价"

Dim Filter As String = "[产品编号] = '" & e.DataRow("产品编号") & "'"

DataTables(tab.Name).ReplaceFor(e.DataCol.Name, e.NewValue, Filter)

End Select

Next

End If

Next

是这样更新的！

感谢你这么晚帮忙，休息了吧，下次再来！