GetFormNumeric '调用数据输入专家(数字/字母输入项)
Numeric.GetTheLimits h:=10000, l:=0 '数据输入上下限
blnFetch = False
Numeric.IsAlpha a:=False '是否是全字母输入
Numeric.GetTheVars a:=1, b:="Fix32.FIX.J1CJF10AA102AO.F_CV" '输入值,b是目标数据块
Numeric.Show '显示数据输入窗口
Exit Sub
On Error GoTo ErrorHandler ‘出现错误时跳转到ErrorHandler
Dim blnFetch As Boolean ’定义变量blnFetch为布尔型(只记录真、假)
If blnDataEntryFrmFlag = True Then ‘判断变量函数blnDataEntryFrmFlag的值得真假
Exit Sub ’如果真就退出
End If
‘如果假就继续运行
GetFormNumeric '跳转到函数或过程GetFormNumeric
’赋值
Numeric.GetTheLimits h:=100, l:=0
blnFetch = False
Numeric.IsAlpha a:=False
Numeric.GetTheVars a:=1, b:="Fix32.FIX.J1CJF10AA102AO.F_CV"
Numeric.Show ’显示控件或窗体
Exit Sub ‘退出本窗体
'出现错误时的处理
ErrorHandler: HandleError
貌似不全,没有上下文,有些东西无法判断。