''' 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
加好友 
发短信
Post By：2008/9/22 20:18:00 [显示全部帖子]
