回 帖 发 新 帖 刷新版面

主题:(求助)金额分栏控件的代码修改

网上下载来的金额分栏控件,现在修改为自己需要的录入格式。
今有如下录入的问题:
1、点击控件的“元”位置上,录入金额0.01时,无法实现金额分栏。金额(大于1.00)的录入正常。
2、点击控件的“角”位置上,录入0-9数字时,无法实现焦点的下移(移到“分”位置)

回复列表 (共1个回复)

沙发

问题出在下面这个函数中:

Private Function funSetValueString(Optional sVal As String = "")

去掉这一句即可:

If sVal = "000" Then Exit Function

但去掉后,你只要打开程序,就会自动填入000

我来回复

您尚未登录,请登录后再回复。点此登录或注册