机房收费系统——谈谈MSHFlexGrid 控件的那些事儿

??????? 机房收费系统也已经做了一段时间了，抛开各种原因不谈，做的的确有点慢。这期间经常会遇MSHFlexGrid控件的一些使用，经过一段时间的摸索，我也从刚开始的小白演化为现在的大白。下面谈谈MSHFlexGrid控件的某些使用。

????????添加MSHFlexGrid控件：

??????????VB编辑界面，工程——部件——Microsoft Hierarchical FlexGrid Control 6.0 (SP4)? (OLEDB)

????????属性：

?????????Cols、Rows 属性：

??????????Cols — 返回或设置在一个MSHFlexGrid 中的总列数。
????????? Rows —返回或设置在一个 MSHFlexGrid 中的总行数

??????????下面的示例把单词“Here”放进当前单元，更改活动单元为第三行的第三单元格，然后把“There”放进那个单元??

Private Sub Form_Load ()
   MSHFlexGrid1.Rows = 8    '8行     
   MSHFlexGrid1.Cols = 5    '5列
End Sub

Private Sub MsFlexGrid1_Click ()
   ' 把文本放在当前单元中。
   MSHFlexGrid1.Text = "Here"
    ' 把文本放在第三行，第三列。
   MSHFlexGrid1.Col = 2
   MSHFlexGrid1.Row = 2
   MSHFlexGrid1.Text = "There"
End Sub

?????????CellAlignment 属性：

???????? 该属性返回或设置的数值确定了一个单元格或被选定的多个单元格所在区域的水平和垂直对齐方式。该属性在设计时是不可使用的。?????????

??????? TextMatrix属性：

????????确定到MSHFlexGrid控件中具体的表格

MSHFlexGrid.TextMatrix(2,3)="哈哈"      ’取得MSHFlexGrid第2行，第3列的文本内容为“哈哈”

?????? RemoveItem 方法：

?????? 运行时从 MSHFlexGrid 中删除一行

txtsql = "delete from user_info where id='" & Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,0)) & "'"  '通过选中某一行的某一单元格来代表这一行
Set objrs = ExecuteSQL(txtsql,msgtext)    '执行SQL语句
MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row    '删除选中行

??????先简单写到这里，还有许多问题没有解决，学习还在不断的进行之中，随着学习的深入不断更新吧！