主题：什么原因保存无效，请教大师？

这样写，多加一个字符，最后再把多加的字符移除掉。

'''
For Each tr As DataRow In DataTables("表A").dataRows
    For Each cl As DataCol In DataTables("表A").dataCols
        If cl.IsString Then
            tr(cl.name) = tr(cl.name).replace(chr(32),"").replace(chr(-23640),chr(40)).replace(chr(-23622),chr(58)).replace(chr(-24639),chr(41)) & chr(11)
        End If
    Next
Next
MessageBox.Show("明明更改了")
DataTables("表A").Load
MessageBox.Show("保存无效?什么原因不改变?鬼在哪?")

如果单纯的把全角替换成半角，是不会认为你修改了单元格内容的，进而没有保存都后台数据库。所以要加入一个另外的字符，去告诉数据库修改了值。

再有，转全角的字符，可以用此函数 http://www.foxtable.com/webhelp/scr/1621.htm

 1、你这个、可以替换成其余的字符，如替换成逗号

'''
Dim str As String = "kjoiu、oiudi：333"
Output.show(StrToNarrow(str.replace("、", ",")))

 2、如果你要个别替换，就只能用replace了。

-24144
-24143

你在表格里面输入字符，然后执行代码即可得到

Dim str As String = CurrentTable.Value
Output.show(asc(str))

 不要用函数了吧，用多个replace，或者用自己的方法

 '''
Dim ary1() As String = {"，", "：", "！"}
Dim ary2() As String = {",", ":", "!"}
Dim str As String = "123，我们：234！"
Dim nstr As String = ""
For Each s As String In str
    Dim idx As Integer = array.Indexof(ary1, s)
    If idx >= 0 Then
        nstr &= ary2(idx)
    Else
        nstr &= s
    End If
Next
msgbox(nstr)

替换不就好了？遇到什么难题，那就做例子发上来。