VB数据库编程中MSHFlexGrid控件用法详解VIP专享

下载后可任意编辑VB 数据库编程中 MSHFlexGrid 控件用法详解添加 MSHFlexGrid 将 Name 改成 flex1添加 text 将 name 改成 txteditPublic rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset '定义数据集对象Dim i As Integer, j As IntegerSub EditKeyCode(MSHFlexGrid As Control, Edt As Control, KeyCode As Integer, Shift As Integer) '标准编辑控件处理。 Select Case KeyCode Case 27 'ESC:隐藏焦点并将其返回 MSFlexGrid Edt.Visible = False MSHFlexGrid.SetFocus Case 13 'ENTER 将焦点返回 MSFlexGrid。 MSHFlexGrid.SetFocus DoEvents If MSHFlexGrid.Col < MSHFlexGrid.Cols - 1 Then MSHFlexGrid.Col = MSHFlexGrid.Col + 1 Else If MSHFlexGrid.Col = MSHFlexGrid.Cols - 1 Then MSHFlexGrid.Row = MSHFlexGrid.Row + 1 MSHFlexGrid.Col = 1 End If End If Case 38 '向上 MSHFlexGrid.SetFocus DoEvents If MSFlexGrid.Row > MSFlexGrid.FixedRows Then MSFlexGrid.Row = MSFlexGrid.Row - 1 End If End SelectEnd SubSub view_DP() If flex1.Col = 4 Or flex1.Col = 5 Or flex1.Col = 6 Then '格式化 Flex1 表的第 7 列、第 8 列、第 9 列、第 11 列 flex1.TextMatrix(flex1.Row, 5) = Format(flex1.TextMatrix(flex1.Row, 5), "0.00") flex1.TextMatrix(flex1.Row, 6) = Val(flex1.TextMatrix(flex1.Row, 4)) * Val(flex1.TextMatrix(flex1.Row, 5)) flex1.TextMatrix(flex1.Row, 6) = Format(flex1.TextMatrix(flex1.Row, 6), "0.00") End If Dim A, B As Single '声明单精度浮点型变量 On Error Resume Next下载后可任意编辑 For i = 1 To flex1.Rows - 1 If flex1.TextMatrix(i, 1) <> "" And flex1.TextMatrix(i, 4) <> "" And flex1.TextMatrix(i, 6) <> "" Then A = Val(flex1.TextMatrix(i, 6)) + A '求合计金额 B = Val(flex1.TextMatrix(i, 4)) + B '求合计数量 End If Next i lblCount = B lblSum = Format(A, "0.00") '格式化合计金额End SubSub SetButtons(bVal As Boolean) cmdRegister.Enabled = Not bVal cmdSave.Enabled = bVal cmdCancel.Enabled = bVal ...