主题：输入数字金额 转为繁体大写

"第一列"数据类型设为字符型

表属性 编缉AfterEdit设置:

    If e.Col.Name = "第一列" Then
         e.Row("第一列") =CUMoney( e.Row("第一列"))  
End If

表属性 数据DataColChanged设置:

   If e.DataCol.Name = "第一列" Then
    If e.DataRow("第一列") = "元整" Then
        e.DataRow("第一列") = Nothing
    End If
End If