主题：查找符合条件并替换

很好办的：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目231.rar

不会吧，同样是商业版格式啊？

打开的时候，提示什么？

先启动你的foxtable，再打开我发给你的文件.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目231.table

代码调整为：

Select Case e.DataCol.name
    Case "数量"
        If  e.NewValue < 0 Then
            Dim dr As DataRow = e.DataTable.Find("发货单号 = '" & e.DataRow("原单号") & "'")
            If dr IsNot Nothing Then
                dr("ZF5")  = "YC"
            End If
        End If
End Select

都可以。

最好先系统看看帮助文件，因为这个问题其实挺基础的，帮助有很多这种例子。