机房收费系统之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 "正在登陆用户不能删除！","警告"
   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>

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

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