【机房收费系统】MSHflexgrid的用法
做机房的时候用到的很多次数的MSHflexgrid控件也是很重要的一部分，现在来总结一下它的用法。
一、它是从哪“变”出来的？
引用控件Microsoft Hierarchical FlexGrid Control 6.0(sp4) (oledb)，看到了吧，它是以这样的形式出现的~
二、怎么用它显示数据库里面的内容？
要写出如下代码：
比如：
txtSQL = "select * from recharge_info where " '调用数据库的代码
txtSQL = txtSQL & "cardno='" & Trim(txtCardno.Text) & "'"
txtSQL = txtSQL & " order by cardno "
Set mrc = ExecuteSQL(txtSQL, msgText)
With myflexgrid '使用MSHflexgrid控件与数据库的联系
.ColWidth(3) = 1700 'rowheight 是行高 '这里可以设置它内部单元格的大小，防止数据太长显示不了
.Rows = 2 '默认2行
.CellAlignment = 4 '居中显示
.TextMatrix(1, 0) = "学号" '第一行，第一列的标题名称
.TextMatrix(1, 1) = "卡号"
.TextMatrix(1, 2) = "充值金额"
.TextMatrix(1, 3) = "日期"
.TextMatrix(1, 4) = "时间"
.TextMatrix(1, 5) = "用户ID"
.TextMatrix(1, 6) = "状态"
Do While Not mrc.EOF '这样可以防止空白行的出现
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
.TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
.TextMatrix(.Rows - 1, 2) = mrc.Fields(3)
.TextMatrix(.Rows - 1, 3) = mrc.Fields(4)
.TextMatrix(.Rows - 1, 4) = mrc.Fields(5)
.TextMatrix(.Rows - 1, 5) = mrc.Fields(6)
.TextMatrix(.Rows - 1, 6) = mrc.Fields(7)
mrc.MoveNext
Loop
End With
mrc.Close
三、如果需要条件查询应该怎么写呢？
四、如何删除单击选中的某一行？
这里，我深刻的感受到，自己思考的满足感，而不是直接就看别人的直接用。我想，这次算的上是自己做的吧，以后一定要自己先考虑，先查查，这样做才是正确的提高。
代码如下：
myflexgrid.SelectionMode = flexSelectionByRow '设置MSHFlexGrid1的选择方式是按行选择
'选中的那行，就是当前的row
txtSQL = "select * from online_info where cardno= '" & myflexgrid.TextMatrix(myflexgrid.Row, 2) & "'"
Set mrc = ExecuteSQL(txtSQL, msgText)
On Error GoTo err
mrc.Delete
mrc.Update
mrc.Close
myflexgrid.RemoveItem myflexgrid.Row<span style="white-space:pre"> </span>'移除当前选中的行
err:
If Error = 3021 Then
MsgBox "该学生已下机！"
End If
小结：
一定要自己先查查思考怎么做，有的知识没有现成的答案，需要我们自己去筛选才行，经过思考的大脑才最闪亮~