“收取金额,退还金额信息查询”窗体出现的一些问题

         在做收取金额,退还金额信息查询这两个窗体时,出现了两个大问题,一个是查找一个时间范围内的所有列,一个是在导出excel表时提示“对象不支持该属性或方法”，这两个问题困扰了我很长时间。

首先，说一下第一个问题，在选择时间控件时 ，我一开始是这样选择的

可是上面的月份是英文的，很显然不实用，也不对，后来又从网上查，说让用Microsoft 日历控件11.0，可是我的“工程”-“部件”中没有，网上说在office中添加一下就可以，可是我还是没找到，郁闷至极，我问了同学，

选择下面的部件Monthview

 

 

 

       在对一个时间段内的数据进行搜索并加载到MSHFlexGrid时，我不知道用什么样的sql语句去取一个范围内的值，并且是将两个combobox的值赋予数据库进行查询，还有一个关键的问题就是数据类型不一致，无法进行隐式转换，重复提示“无法将varchar数据类型“2013/9/20”转换为int类型”，在百度了好多次以后，终于算是找到方法了

Private Subcmdinquire_Click()

    Dim mrc As ADODB.Recordset

    Dim txtsql As String

    Dim msgtext As String

   

    txtsql ="select * from recharge_info where date between  '" & Format(ComboStartDate.Text,"yyyy-mm-dd") &"' And '"& Format(ComboEndDate.Text, "yyyy-mm-dd") &"'"

    Set mrc = executeSQL(txtsql, msgtext)

    If mrc.EOF Then

        MsgBox "没有记录", vbOKOnly +vbExclamation, "警告"

        Exit Sub

    Else

        With myFlexGrid

            .Rows = 1

            .CellAlignment = 4

            .TextMatrix(0, 0) = "卡号"

            .TextMatrix(0, 1) ="充值金额"

            .TextMatrix(0, 2) ="充值日期"

            .TextMatrix(0, 3) ="充值时间"

            .TextMatrix(0, 4) ="充值教师"

            .TextMatrix(0, 5) ="结账状态"

            Do While Not mrc.EOF

                .Rows = .Rows + 1

                .CellAlignment = 4

                .TextMatrix(.Rows - 1, 0) =mrc.Fields("cardno")

                .TextMatrix(.Rows - 1, 1) =mrc.Fields("addmoney")

                .TextMatrix(.Rows - 1, 2) =mrc.Fields("date")

                .TextMatrix(.Rows - 1, 3) =mrc.Fields("time")

                .TextMatrix(.Rows - 1, 4) =mrc.Fields("userid")

                .TextMatrix(.Rows - 1, 5) =mrc.Fields("status")

                mrc.MoveNext

            Loop

        End With

    End If

End Sub

      这里的format真的很重要，可以避免数据类型不匹配造成的困扰，尤其是时间的比较，还有就是注意单引号，双引号的应用，以及sql语句查询一定范围内列的方法

      第二个问题就是在导出数据时，因为之前以及有其他窗体导出excel成功了，在与依他窗体对比完代码后，我发现代码没有出入，而且在模块中编写的导出Excel的函数也是正确的，于是查了又查，点了又点，将窗体上的控件删了重新加，才发现，原来是MSHFlexGrid与monthview的位置前后的问题，如果将monthview控件放在MSHFlexGrid的时候，就是弹出“对象不支持该属性或方法

”的错误提示，可是怎么样才能使窗体运行时既不会让MSHFlexGrid挡住，又能将monthview正常显示呢？做法如下：

 

 

 

 

 

 

然后再编写一段代码：

 

      其中标注部分表示MSHFlexGrid控件位置总是滞后,这样就可以正常导出excel了

      在发现问题和解决问题的过程中，其实最重要的是用好网络，多尝试，不管对错，都要试一试，还有就是断点调试真的很好用，当需要多次调用一个功能时，可以想办法将其写成函数、过程，利用call将其调用出来就ok了，只要耐下心来去想，去查，都能做出来的。