请教:在同一文本框里直接转换成大写金额?

打字比你快

有一文本框,me.text1,想在me.text1里输入小写金额如:120.25回车后直接在本文本里显示大写金额即:壹佰贰拾元贰角伍分.能不能行,谢谢.

ytf123

http://www.office-cn.net/forum.p ... 3%D0%B4%BD%F0%B6%EE

打字比你快

原帖由 ytf123 于 2007-8-1 10:57 发表
http://www.office-cn.net/forum.php?mod=viewthread&tid=34324&highlight=%D7%AA%BB%BB%2B%B4%F3%D0%B4%BD%F0%B6%EE

不行呀,不符合要求呀.要在同一文本框回车后实现.

轻风

晕，附件怎么上传？

一点通

一个是数字格式,另一个是文本格式,如要转换必须将格式都转换,我觉得不可取的方法,也不直观,建议还是使用另一个文本框显示好一点

轻风

在更新后事件中就行咯

Private Sub Text0_AfterUpdate()
If Not IsNumeric(Me.Text0) Then
  MsgBox "必需输入数字格式！", vbCritical, "错误"
  Exit Sub
End If
  Me.Text0 = ChMoney(Me.Text0)
End Sub

zjxq1991

学到很多东西

打字比你快

原帖由 轻风 于 2007-8-1 11:27 发表
在更新后事件中就行咯

Private Sub Text0_AfterUpdate()
If Not IsNumeric(Me.Text0) Then
  MsgBox "必需输入数字格式！", vbCritical, "错误"
  Exit Sub
End If
  Me.Text0 = ChMoney(Me.Text0)
End Sub

不错,谢谢!