以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  全角转半角  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104342)
--  作者：蓝蚂蚁
--  发布时间：2017/7/27 15:58:00
--  全角转半角
第一列已经有近600条记录，当初在录入数据时把括号用全角录入，现在用代码转换成半角。代码如下：
If e.DataCol.Name = "第一列" Then
    Dim Val As String
    Dim st4 As String=e.DataRow("第一列")
    Val = StrToNarrow(st4)
    e.DataRow("第一列")=val
End If

结果：用重置功能时的确能把第一列的内容转换成半角，但重新打开项目后，有部分的又变成全角了 ，何解？
--  作者：有点甜
--  发布时间：2017/7/27 17:15:00
--  

单纯切换大小写、全角半角，不会认为你更新了数据的。

 

你可以这样写

 

If e.DataCol.Name = "第一列" Then
    Dim Val As String
    Dim st4 As String=e.DataRow("第一列")
    Val = StrToNarrow(st4)
    e.DataRow("第一列")=val & chr(11)
End If
 
更新完以后，在把chr(11)替换成空白。