在搞清楚各窗体与各表关系之后,敲的几个窗体都是很简单的,没有遇到什么大问题,自己通过调试代码就可以解决。但是到了学生充值记录查看和学生上机记录查询者两个窗体时就遇到了问题,首先是查询按钮,没有预先将MSFlexGrid表清空,导致查询数据时会出现重复的现象。然后是导出Excel表。这个是以前没有接触过的,所以在查了很多资料和看了同学的博客之后总结出三种方法:
一、是直接编写代码
首先从工程部件里引用Microsoft Excel 14.0 Object Library
导出数据到excel表中代码如下:
Private Sub cmdOutdataToExcel_Click()
Dim i As Integer '定义行循环变量
Dim j As Integer '定义列循环变量
Dim xlApp As Excel.Application '定义类,用来创建excel实例化对象
Dim xlBook As Excel.Workbook '定义一个工作薄
Dim xlSheet As Excel.Worksheet '定义一个工作表
'首先判断myFlexGrid表中是否有数据存在可供导出
If Trim(myFlexGrid.TextMatrix(0, 0)) ="" Then
MsgBox "没有数据可导出", vbOKOnly +vbExclamation, "提示"