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

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

点击浏览该文件:11.table

数量小于0的为退货单，他的原单号为之前的发货单号

我想做一个查找替换，用代码做：先找出数量小于0的原单号，然后在发货单号中找出相符的，并将ZF5的值改为YC

之所以要这样做，是要通过退货单将原发货单改为不用回款的单据

ZF5列的值为Y时，需回款，为YC时，不用回款。

谢谢！

这样改来改去，发货原始记录将无证可查，既不符合财务管理制度，也不适应实际需要，何不增加一列，通过代码来标记是否需回款？

很好办的：

 

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

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

不知道为什么，文件我打不开

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

打开的时候，提示什么？

 

 

无法访问您要使用的功能所在的网络位置

我之前上传的是试用版

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

 

 

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

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

发货单号查找到了，不改发货单号，而是将对应的ZF5（是否回款列）的值改为YC

代码调整为：

 

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