专家坐堂-请教一个replacefor的使用问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一个replacefor的使用问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146961)

--  作者：gudao123456
--  发布时间：2020/3/6 18:45:00
--  请教一个replacefor的使用问题

想将身份证号码中间的10位替换成“*”，能用replacefor实现吗？如何写代码？用下列代码：
Dim tb As Table=CurrentTable
tb.DataTable.ReplaceFor("sfzhm",left([sfzhm],4) +"**********"+right([sfzhm],4))
行不通，能不用遍历吗？如何修改？谢谢

--  作者：y2287958
--  发布时间：2020/3/6 20:14:00
--

DataTables("表A").SQLReplaceFor("第一列","left(第一列,9) + \'*\' + mid(第一列,11)","",True)
DataTables("表A").Load

--  作者：有点蓝
--  发布时间：2020/3/6 20:58:00
--
tb.DataTable.SQlReplaceFor("sfzhm","left([sfzhm],4) + \'**********\' +right([sfzhm],4)","",True)
tb.DataTable.Load

--  作者：gudao123456
--  发布时间：2020/3/7 17:33:00
--
谢谢！