- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]写以下代码，将单位格在的全角数字替换为半角？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25116)
-- 发布时间：2012/10/31 17:52:00
-- [求助]写以下代码，将单位格在的全角数字替换为半角？
如题，有一列列名为“文件摘要”，要输入时需要用到中文输入，但输入的数字也变成了全角，怎样写一段代码让这列的单元格编辑后，用半角的数字替换为全角的数字。
全角数字有：０１２３４５６７８９
半角数字为：0123456789
谢谢大家了。
-- 发布时间：2012/10/31 17:54:00
--
原因：
http://www.foxtable.com/help/topics/1273.htm
-- 发布时间：2012/10/31 17:58:00
--
晚上告诉你，应该挺简单的……
-- 发布时间：2012/10/31 19:53:00
--
For Each dr As DataRow In CurrentTable.DataTable.DataRows
dr("文件摘要") = StrToNarrow(dr("文件摘要"))
Next
-- 发布时间：2012/10/31 20:16:00
--
也可以直接在DataColChanged事件中设置代码。
If e.DataCol.name = "文件摘要"
e.DataRow("文件摘要") = StrToNarrow(e.DataRow("文件摘要"))
End If
-- 发布时间：2012/10/31 22:23:00
--
C版的应该行。
-- 发布时间：2012/10/31 22:36:00
--
嗯嗯，C版的行……才知道有StrToNarrow这个东西。
害得我还傻傻地去写一个这样的函数。
叔回去啃帮助……-- 发布时间：2012/11/1 8:59:00
--
谢谢Cry版主，即简单又非常的实有。
再次谢过了。