本文于2023年6月9日首发于本人同名公众号：Excel活学活用，更多文章案例请搜索关注！

☆本期内容概要☆

• 用户窗体设置：收费结算模块设置（6）
• 增加合计金额
• 增加收款方式选择输入

大家好，我是冷水泡茶，前几期我们分享了【收费管理系统】的设计，最近一期是（Excel VBA 收费结算模块/一步一步带你设计【收费管理系统】10），今天我们接着来。

今天的目标是在收费结算窗体上增加“合计”，以及收款方式的选择。

下面我们就开始：

1、增加一个标签：LbAmount，Caption改为“合计：”

照理我们还要增加一个标签，用来显示金额，其实不需要，用这一个就够了，到时把它的Caption改为“合计:” & 金额数字就可以了。

为了截图方便，我把它放在了上面，实际上我们要让它显示在“保存”按钮的附近。不过也无所谓了，这个窗体上的控件位置都是乱的，在窗体启动时用代码来确定每个控件的位置。

另外，我们要把它的Visible属性设置为False，在我们启动“收费结算”功能模块时，才让它显示，其他模块不显示。

（1）确定显示LbAmount位置，在If currTable = "tb收费明细" Then代码块里增加代码：

If currTable = "tb收费明细" Then
    With Me
    ......
        With Me.LbAmount
            .Left = Me.Frame3.Left + Me.CmdAddNew.Left
            .Top = Me.Frame3.Top - Me.Frame3.Height
            .Visible = True
        End With
     ......
    End With
End If

代码解析：根据frame3的位置来确定LbAmount的位置，运行一下：

（2）确定LbAmount的Caption，即显示合计金额。在过程HideInkEdit中增加代码，

ElseIf currTable = "tb收费明细" Then
    If .ColumnHeaders(intCol) = "收费项目" Then
    ......
        amount = 0
        For i = 1 To .ListItems.Count
            amount = amount + .ListItems(i).SubItems(Pxy(tbTitle, "金额") - 1)
        Next
        Me.LbAmount.Caption = "合计:" & Format(amount, "Standard")

代码解释：上面的代码只摘录了一部分。当金额发生变化时，就循环ListView，把所有金额加总赋值给LbAmount的Caption。这里我们无法直接捕捉金额的变化，只有在收费项目、数量、单价发生变化时，通过InkEdit退出事件来进行金额的汇总，所以这段代码共有三个地方要加。

（3）保存后，把LbAmount的Caption改为“合计：0.00”。

2、增加双击收款方式的弹出选择窗体：

收款方式，我们可以直接手工输入，也可以通过双击单元格调出选择窗体选择输入。这里没有专门配置收款方式的表，对收款方式的输入没有做严格限制，所以，在输入的时候要注意前后统一。当然，也可以建立一个收款方式的表，并进行严格限制，目前暂时略过，感兴趣的朋友可以自己来做一做。

......
elseIf currTable = "tb收费明细" Then  '收费明细
    If .ColumnHeaders(intCol) = "收费项目" Then
        ItemFullName = InkEdit1
        Usf_ItemSelect.Show
    ElseIf .ColumnHeaders(intCol) = "收款方式" Then
        With Usf_Interm
            .Caption = "选择【收款方式】"
            '选择收款方式
            SQL = "select distinct 收款方式 from tb收费明细"
            If RecordValue(dataFile, "select count(*) from tb收费明细") = 0 Then
                arrType = Array("现金", "微信", "支付宝")
            Else
                temp = GetData(dataFile, SQL)
                arrType = FlattenArray(temp)
            End If
            With Usf_Interm.CmbInterm
                .Clear
                .List = arrType
                .Text = Me.InkEdit1.Text
            End With
            .Show
        End With
        
        
    End If
ElseIf currTable = "tb价格文件" Then
......

代码解析：通过InkEdit的双击事件，调用窗体Usf_Interm。

（1）通过查询“tb收费明细”表中的收款方式来供选择。

（2）在查询之前，先判断一下“tb收费明细”表有没有记录，如果没有记录我们就预置"现金", "微信", "支付宝"三种收款方式，一旦有记录，哪怕是一条，供我们选择的就是“tb收费明细”表中的收款方式。这里先行判断有无记录，也可以避免直接查询无记录时出错。

（3）查询结果存到temp，再转成一维数组，赋值给组合框的List。如果不转成一维数组，也可以通过循环的方式或者转置的方式来添加List。

最后，我们来看一下今天的成果：

好，今天就到这吧。请大家多多点赞、留言、分享，谢谢大家，我们下期再会。

☆猜你喜欢☆

本文于2023年6月9日首发于本人同名公众号：Excel活学活用，更多文章案例请搜索关注！