VB MSHFLEXGRID MSHFLEXGRID 绑定 CHECKBOX 另一法，推荐

最新推荐文章于 2023-04-19 10:07:14 发布

cncco

最新推荐文章于 2023-04-19 10:07:14 发布

阅读量1.1k

点赞数

分类专栏： VB 文章标签： vb integer button c

本文链接：https://blog.csdn.net/cncco/article/details/5399800

版权

VB 专栏收录该内容

82 篇文章 3 订阅

订阅专栏

Private Sub HFlexgrid_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
    '单击选择或不选择
    With HFlexgrid
        If .rows < 2 Then Exit Sub
        If .Row < 1 Or .Row > .rows - 1 Then Exit Sub
        If .TextMatrix(.Row, 0) = "√" Then
            .TextMatrix(.Row, 0) = "" '减少“选中金额”
            If Trim(.TextMatrix(.Row, 3)) = "31" Then
                txtfSumMoney_RMB.Text = Format(CDbl(txtfSumMoney_RMB.Text) - CDbl(.TextMatrix(.Row, 9)), "###0.00")
            End If
            If Trim(.TextMatrix(.Row, 3)) = "32" Then
                txtfSumMoney_USD.Text = Format(CDbl(txtfSumMoney_USD.Text) - CDbl(.TextMatrix(.Row, 11)), "###0.00")
            End If
            '改变行颜色
            For i_Col = 0 To .Cols - 1
                .Col = i_Col
                .CellBackColor = vbWhite
            Next i_Col
        Else
            .TextMatrix(.Row, 0) = "√" '增加“选中金额”
            If Trim(.TextMatrix(.Row, 3)) = "31" Then
                txtfSumMoney_RMB.Text = Format(CDbl(txtfSumMoney_RMB.Text) + CDbl(.TextMatrix(.Row, 9)), "###0.00")
            End If
            If Trim(.TextMatrix(.Row, 3)) = "32" Then
                txtfSumMoney_USD.Text = Format(CDbl(txtfSumMoney_USD.Text) + CDbl(.TextMatrix(.Row, 11)), "###0.00")
            End If
        '改变行颜色
            For i_Col = 0 To .Cols - 1
                .Col = i_Col
                .CellBackColor = &H80C0FF
            Next i_Col
        End If
    End With
End Sub