'''
If e.Col.name = "尺寸" Then
if e.Text > "" Then
dim s1 as string="0123456789"
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编辑过]