主题：全角字符怎么转半角

我放到表属性的 valiadedit 里面怎么写参数？

'''
If e.Col.name = "尺寸" Then  
  if e.Text > "" Then
     dim s1 as string="０１２３４５６７８９"
     dim s2 as string="0123456789"
     for i as  integer =0 to 9
         e.Text =e.Text .Replace(s1.SubString(i,1),s2.SubString(i,1))
     next
  End If
End If

或：
If e.Col.name = "尺寸" Then 
  e.Text = StrConv(e.Text, VbStrConv.Narrow, 0)     
End If

谢谢啊，不过我自己改了一下，呵呵～
我写就不会了，看就会看一点，改也能改……

'''
  if e.Text > "" Then
     dim s1 as string="０１２３４５６７８９＊＋－％＃＝ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ"
     dim s2 as string="0123456789*+-%#=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
     for i as  integer =0 to 67
         e.Text =e.Text .Replace(s1.SubString(i,1),s2.SubString(i,1))
     next
  End If

精简了一下，谢谢楼上两位的帮助，本人编程很菜啲，呵呵～

  if e.Text > "" Then
e.text=StrConv(e.text, VbStrConv.Narrow, 0)
  End If

这段代码放到这里有问题，如果单击单元格输入的话，会输入错误，如输入１，就出现１１
但是双击单元格编辑的话就没有问题，请问怎样解决呢？
放到changedit里面提示text为只读

不知道这个是不是bug，当我在表属性事件填入以下代码：
if e.Text > "" Then
e.text=StrConv(e.text, VbStrConv.Narrow, 0)
  End If

并且选择了 列表项目的 数据表，列表项目之后（就是有了个下拉的小箭头）
就有问题了，我输入全角１１，结果是半角的1 （列3)

但是只是输入事件代码的话，就没有问题（列2）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

没发现什么问题啊？

您试试同时输入两个全角的数字，第二列和第三列的结果是不同地～

1、如果输完，鼠标点去第二列的其他单元格，就只有1位数！
只要是几位数字相同的，如１１，２２，３３３等等 。（21112，13331这些确不会！）

2、输完,按回车键!能解决楼主的问题。

这样不能从根本解决问题哦~
我不能保证每个输入员每次都输入完按回车的,有没有个治本的解决方法呢?