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

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,3)) = "32" Then txtfSumMoney_USD.Text = Format(CDbl(txtfSumMoney_USD.Text) + CDbl(.TextMatrix(.Row,"###0.00") End If '改变行颜色 For i_Col = 0 To .Cols - 1 .Col = i_Col .CellBackColor = &H80C0FF Next i_Col End If End WithEnd Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!