机房收费系统之MSHFLexgrid控件

       大家都敲完学生信息管理系统和机房收费系统了，想必对MSHFLexgrid控件都有了一定的认识。在这里，我就好好的总结一下吧……

      1、  添加控件

       在vb中要添加部件：MicrosoftHierarchical FlexGrid Control 6.0，MSHFLexgrid控件才能出现在工具箱中。

      2、  常用属性：

        AddItem向网格中加入一新行

        Clear 清除网格中的内容

        ClearStructure清除网格的结构(映射信息)    

        RemoveItem从网格中清除一行

        rowsel返回选中的行

        colsel返回选中的列

        TextMatrix设置/返回某个选定行,列的单元的文本内容

        RowsLong返回网格的行的总数或者或BAND的行的总数

        Colwidth()设置列宽

       下面是一个删除选中行的例子（删除用户窗体）：

<span style="font-size:24px;">'如果选中的是字段行，不能删除
   If flexgrid1.Row = 0 Then
     MsgBox "亲，这一行不能删除哦！", vbOKOnly + vbExclamation, "警告"
     Exit Sub
   End If
   
    '当选中的行为正在登陆的用户，不能删
   If flexgrid1.TextMatrix(flexgrid1.RowSel, 0) = Trim(UserName) Then
      MsgBox "正在登陆用户不能删除！", vbOKOnly + vbExclamation, "警告"
   Else
       txtSQL = "select * from User_Info where UserID = '" &Trim(flexgrid1.TextMatrix(flexgrid1.Row, 0)) & "'"
       Set mrc = ExecuteSQL(txtSQL, Msgtext)
       
       flexgrid1.RemoveItem flexgrid1.Row
 
       mrc.Delete
       mrc.Update
    mrc.Close
End If</span>

       注意，我们在表格中删除了数据，别忘了把数据库中的数据也删了，要不然后面的运行中还是会报错的！

      有了这些常用的属性，这个控件就差不多了。我们不需要把这些属性都背下来，只要多看几遍，在不会的时候多来重复重复的，就会用了……