VB编程中网格控件的选用及使用方法

ards() As M_Hard 定义其标题： GrdHardComp.Row = 0 ' GrdHardComp.Col = 0 GrdHardComp.FixedAlignment(GrdHardComp.Col) = 2 GrdHardComp.Text = "构成番号" GrdHardComp.Col = 1 GrdHardComp.FixedAlignment(GrdHardComp.Col) = 2 GrdHardComp.Text = "构成机器区分"① … … 在数据向Grid中写入或取出时，为了便于大量的数据同时，简便地写入与修改，可以定义一个类型。如下： Type M_Hard Number As String OrderNum As String 

MachKind As String MachKindName
 As String … … End Type （其中Number等均为要输入的图示条目） Private Hards() As M_Hard Hards()，此时就作为数据的传输变量，进行Grid与TextBox之间的数据传输。 数据向类内写入： If HardComp.RecordCount > 0 Then HardComp.MoveFirst Do Until HardComp.EOF 
ReDim Preserve Hards(H%)// H%为记数变量。 Hards(H%).OrderNum = HardComp![ OrderNum]//输入编号 Hards(H%).MachKind = HardComp![ MachKind]//种类 Hards(H%).MachKindName = HardComp![ MachKindName]//分类名 Hards(H%).MachName = HardComp![ MachName]//名称 … … loop HardComp.MoveFirst 类内数据向Grid内写入： GrdHardComp.Row = H% + 1//记录数统计 GrdHardComp.Col = 0 GrdHardComp.Text = " " & Hards(H%).OrderNum GrdHardComp.Col = 1 GrdHardComp.Text = " " & Hards(H%).MachKind GrdHardComp.Col = 2 GrdHardComp.Text = " " & Hards(H%).MachKindName GrdHardComp.Col = 3 GrdHardComp.Text = " " & Hards(H%).MachName GrdHardComp.Col = 4 … … GrdHardComp.Text = " " & Hards(H%).HardLastDate GrdHardComp.Rows = GrdHardComp.Rows + 1//行数加1 HardComp.MoveNext H% = H% + 1 当然，如果使数据真正写入数据库，还需进行数据库的读写操作。Grid只是提供了一个预览的功能，便于数据的修改。 由以上Grid的特点及其使用方法可以看出，在需要对数据库进行大量数据的操作时，为了减少对数据库的直接操作，提高数据库的安全性，使用Grid控件，还是有很大方便的。 Grid是VB在早期版本中就带有的控件，使用简便，稳定性好，在早期的VB开发过程中，使用尤其广泛。但现在与其它控件比较起来功能有些不足。 DBGrid控件： DBGrid是专用来操作数据库的网格控件，可以绑定到Data控件，几乎不用写代码就可方便地对数据进行显示，增加、删除或修改记录，DBGrid具有OnAddNew、BeforeDelete等事件，可在增加新记录或删除修改时对数据进行有效性检验，来实现事务处理功能。DBGrid也可以在设计时编辑网格格式，指定显示

《VB编程中网格控件的选用及使用方法(第2页)》