MSGRID的填充

这是记录的一些填充代码，其实MSGRID就是一个二维表格，主要在控制单元格的高度和宽度上有点技巧，但本人认为MSGRID并不太好用。


　　下面编写了一个用记录集填充AxMSFlexGrid网格的过程。其中函数RecordCount是我自己编写的求记录集中记录的函数。这里不能直接用ADO的RecordCount求得。如果记录集是空，则退出过程。否则求出记录集的记录数和字段来确定AxMSFlexGrid网格的行列数据，然后读出记录集的数据直接填充到AxMSFlexGrid网格。要说明的是读出记录集的数据时要先判断是否为空值，由函数IsDBNull实现(函数IsDBNull来源于System.DBNull).最后记录集应该返回到记录首位，否则影响了原有的记录集，完整的代码如下：

'作用：用记录集的数据填充网格 
'参数：MSGrid 网格对象，rec 记录集对象 

　　以上代码编好后放在所定义的类中.下面的省略号代表上面的函数和过程。可直接生成为DLL组件。方法是在.NET编辑环境下选择生成菜单中按生成就生成了DLL文件。然后，你可以直接调用该组件了。

Imports ADODB.Connection 
Imports ADODB.Recordset 
Imports ADODB.CursorLocationEnum 
Imports System.DBNull '函数IsDBNull的来源 

　　调用上面生成的组件方法如下：在Visual Basic.NET中建立一项目，在窗口Form1中加入一AxMSFlexGrid网格命名为MsGrid1,布置如下

　　然后引用刚建立的Dll。方法是选择项目菜单的添加引用，选择项目页，按浏览找到其DLL文件确定后引用完成。在Form1中定义一ADOAccess对象，在Load事件中编写调用代码，分别测试其功能，代码如下：