- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 查找符合条件并替换 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15143)
-- 发布时间：2011/12/14 9:53:00
-- 查找符合条件并替换
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:11.table |
数量小于0的为退货单，他的原单号为之前的发货单号
我想做一个查找替换，用代码做：先找出数量小于0的原单号，然后在发货单号中找出相符的，并将ZF5的值改为YC
之所以要这样做，是要通过退货单将原发货单改为不用回款的单据
ZF5列的值为Y时，需回款，为YC时，不用回款。
谢谢！
-- 发布时间：2011/12/14 9:58:00
--
这样改来改去，发货原始记录将无证可查，既不符合财务管理制度，也不适应实际需要，何不增加一列，通过代码来标记是否需回款？
-- 发布时间：2011/12/14 10:01:00
--
很好办的：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目231.rar |
-- 发布时间：2011/12/14 10:12:00
--
不知道为什么，文件我打不开
-- 发布时间：2011/12/14 10:14:00
--
不会吧，同样是商业版格式啊？
打开的时候，提示什么？
-- 发布时间：2011/12/14 10:16:00
--
无法访问您要使用的功能所在的网络位置
-- 发布时间：2011/12/14 10:17:00
--
我之前上传的是试用版
-- 发布时间：2011/12/14 10:18:00
--
先启动你的foxtable，再打开我发给你的文件.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目231.table |
-- 发布时间：2011/12/14 10:22:00
--
发货单号查找到了，不改发货单号，而是将对应的ZF5（是否回款列）的值改为YC
-- 发布时间：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