主题：[求助]

红色代码你要改成对应的啊

iif(GetDigit(e.Value,2)="￥", "￥", CUMoney(GetDigit(e.Value,2)).TrimEnd("元","整"))

代码要这样写啊

感谢指导，问题解决了，代码方面的知识俺们太欠缺了，硬要完全写到位才知道乍用。

还有一个问题，请高手指点迷津。我建了一个ACC的外部数据源，并放在本机的网络共享文件夹上，设置好了数据源，并增加了外部数据表，能加载到相关表的数据，能查询，但修改后不能保存，是哪里设置出了问题，我是按帮助文件一步一步设置的。连续字符串生成器：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Xp-20150728ktud\共享文档\000.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456

然后生成表能查看数据，但修改后保存出错。

共享文件夹权限的问题。必须勾选读取和写入的权限。

dim f As New Filler

f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "客户" '指定数据接收列
f.Fill() '填充数据

 看一下帮助Filler的帮助：

http://www.foxtable.com/help/topics/0680.htm

留意以下属性：

ExcludeExistValue

逻辑型，设为True，排除接收表中已经存在的内容。
　
ExcludeNullValue

逻辑型，设为True，排除空白值。

Distinct

逻辑型，是否排除重复内容，默认为True；如果设为False，将不会排除重复内容，也不会排除已有内容和空白值。
　

编程不是一个技术活，需要的是耐心和细心，看帮助不能一目十行，走马观花。