帮忙解释这个代码，谢谢

perpig　发表于：2010-11-22 21:18:09 　

Option Compare Database

Private Sub 套打_Click()
Dim A
Dim i As Long
Dim ctls As Controls
Call 清空
If IsNumeric(Me.金额.Value) = True Then
    If Int(Me.金额.Value) < 10 ^ 6 Then
        Set ctls = Me.Controls
        A = StrA(Me.金额.Value)
        If A(0, 0, 0) <> 6 Then
            ctls("v" & A(0, 0, 0) - i).Value = "币"
            ctls("p" & A(0, 0, 0) - i).Value = "￥"
        End If
        For i = 0 To UBound(A, 3)
            ctls("v" & A(0, 0, 0) - i - 1).Value = A(0, 1, i)
            ctls("p" & A(0, 0, 0) - i - 1).Value = A(0, 2, i)
        Next
    Else
        MsgBox "发票为拾万元版！"
    End If
End If
End Sub

Sub 清空()
Dim ctls As Controls
Dim i As Long
Set ctls = Me.Controls
For i = -2 To 5
ctls("v" & i).Value = Null
ctls("p" & i).Value = Null
Next
End Sub

能否不用按钮直接根据金额显示呢？如果能帮我做个代码解释更好，谢谢啦！我有很多问题要提呢

Top

江羽发表于：2010-11-22 21:55:26

Private Sub 套打_Click()
Dim A
Dim i As Long
Dim ctls As Controls

'调用控件清空过程
Call 清空

'运算结果是否为数值
If IsNumeric(Me.金额.Value) = True Then
    '金额值小于10的六次方或者说小于100万
    If Int(Me.金额.Value) < 10 ^ 6 Then
        '设定控件集合对象
        Set ctls = Me.Controls
        '将指定金额值赋值给变量
        A = StrA(Me.金额.Value)
        '数组值不等于6
        If A(0, 0, 0) <> 6 Then
            '控件集合对象显示指定的字符
            ctls("v" & A(0, 0, 0) - i).Value = "币"
            ctls("p" & A(0, 0, 0) - i).Value = "￥"
        End If
        '从零到数组最大下标进行循环
        For i = 0 To UBound(A, 3)
            '依次赋值给控件集合对象
            ctls("v" & A(0, 0, 0) - i - 1).Value = A(0, 1, i)
            ctls("p" & A(0, 0, 0) - i - 1).Value = A(0, 2, i)
        Next
    Else
        MsgBox "发票为拾万元版！"
    End If
End If
End Sub

'----------------------------------

'重置控件或者说是清空控件显示

'----------------------------------
Sub 清空()
Dim ctls As Controls
Dim i As Long
Set ctls = Me.Controls
For i = -2 To 5
ctls("v" & i).Value = Null
ctls("p" & i).Value = Null
Next
End Sub

Top

江羽发表于：2010-11-22 21:55:49