[浏览完整版]
标题：全角字符怎么转半角
11楼
jimmylzt 发表于：2008/9/22 18:36:00我放到表属性的 valiadedit 里面怎么写参数？
12楼
yuanbin 发表于：2008/9/22 20:18:00'''
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.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
[此贴子已经被作者于2008-9-22 20:35:53编辑过]
13楼
jimmylzt 发表于：2008/9/22 20:46:00以下是引用yuanbin在2008-9-22 20:18:00的发言：
'''
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
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.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
14楼
jimmylzt 发表于：2008/9/22 21:02:00精简了一下，谢谢楼上两位的帮助，本人编程很菜啲，呵呵～
if e.Text > "" Then
e.text=StrConv(e.text, VbStrConv.Narrow, 0)
End If
if e.Text > "" Then
e.text=StrConv(e.text, VbStrConv.Narrow, 0)
End If
[此贴子已经被作者于2008-9-22 21:35:29编辑过]
15楼
jimmylzt 发表于：2008/9/22 22:32:00这段代码放到这里有问题，如果单击单元格输入的话，会输入错误，如输入１，就出现１１
但是双击单元格编辑的话就没有问题，请问怎样解决呢？
放到changedit里面提示text为只读
但是双击单元格编辑的话就没有问题，请问怎样解决呢？
放到changedit里面提示text为只读
[此贴子已经被作者于2008-9-22 22:33:12编辑过]
16楼
jimmylzt 发表于：2008/9/23 0:35:00不知道这个是不是bug，当我在表属性事件填入以下代码：
if e.Text > "" Then
e.text=StrConv(e.text, VbStrConv.Narrow, 0)
End If
并且选择了 列表项目的 数据表，列表项目之后（就是有了个下拉的小箭头）
就有问题了，我输入全角１１，结果是半角的1 （列3)
但是只是输入事件代码的话，就没有问题（列2）
if e.Text > "" Then
e.text=StrConv(e.text, VbStrConv.Narrow, 0)
End If
并且选择了 列表项目的 数据表，列表项目之后（就是有了个下拉的小箭头）
就有问题了，我输入全角１１，结果是半角的1 （列3)
但是只是输入事件代码的话，就没有问题（列2）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
17楼
贺老六 发表于：2008/9/23 8:37:00没发现什么问题啊？
18楼
jimmylzt 发表于：2008/9/23 9:20:00您试试同时输入两个全角的数字，第二列和第三列的结果是不同地～
19楼
gdtgl 发表于：2008/9/23 12:32:001、如果输完，鼠标点去第二列的其他单元格，就只有1位数！
只要是几位数字相同的，如１１，２２，３３３等等 。（21112，13331这些确不会！）
2、输完,按回车键!能解决楼主的问题。
只要是几位数字相同的，如１１，２２，３３３等等 。（21112，13331这些确不会！）
2、输完,按回车键!能解决楼主的问题。
20楼
jimmylzt 发表于：2008/9/23 15:30:00以下是引用gdtgl在2008-9-23 12:32:00的发言：
1、如果输完，鼠标点去第二列的其他单元格，就只有1位数！
只要是几位数字相同的，如１１，２２，３３３等等 。（21112，13331这些确不会！）
2、输完,按回车键!能解决楼主的问题。
1、如果输完，鼠标点去第二列的其他单元格，就只有1位数！
只要是几位数字相同的，如１１，２２，３３３等等 。（21112，13331这些确不会！）
2、输完,按回车键!能解决楼主的问题。
这样不能从根本解决问题哦~
我不能保证每个输入员每次都输入完按回车的,有没有个治本的解决方法呢?