共15 条记录, 每页显示 10 条, 页签: [1] [2]

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

1楼

奇特的帽子6 发表于：2011/12/14 9:53:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:11.table

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

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

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

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

谢谢！

2楼

程兴刚 发表于：2011/12/14 9:58:00

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

3楼

狐狸爸爸 发表于：2011/12/14 10:01:00

很好办的：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目231.rar

4楼

奇特的帽子6 发表于：2011/12/14 10:12:00

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

5楼

狐狸爸爸 发表于：2011/12/14 10:14:00

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

打开的时候，提示什么？

6楼

奇特的帽子6 发表于：2011/12/14 10:16:00

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

7楼

奇特的帽子6 发表于：2011/12/14 10:17:00

我之前上传的是试用版

8楼

狐狸爸爸 发表于：2011/12/14 10:18:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目231.table

9楼

奇特的帽子6 发表于：2011/12/14 10:22:00

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

10楼

狐狸爸爸 发表于：2011/12/14 10:23:00

代码调整为：

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

共15 条记录, 每页显示 10 条, 页签: [1] [2]