前言

本窗體相對來說比較簡單，主要涉及到從Recharge_info表中查詢，與及excel的匯出；其大概思路如下：終止日期不能小於起始日期----連線Recharge_info表，顯示內容----匯出表格：判斷有無資訊可匯出-----有則呼叫excel程式

問題所在

問題1：卡號，學號不能查詢
原因：二者有空值，未用去空格符合，以下會有程式碼展示
問題2：excel不能成功匯出
原因：在顯示excel表格那裡，把excel錯寫成了MSFlexGrid1
總結：積少成多，則會懂的更多

程式碼展示

一、有無空格的程式碼比較：
1）去除空格後

 .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(2))
 .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(1))
 .TextMatrix(.Rows - 1, 2) = mrc.Fields(3)
  .TextMatrix(.Rows - 1, 3) = mrc.Fields(4)
 .TextMatrix(.Rows - 1, 4) = mrc.Fields(5)
 .TextMatrix(.Rows - 1, 5) = mrc.Fields(6)
 .TextMatrix(.Rows - 1, 6) = mrc.Fields(7)
  mrc.MoveNext
 

2）未去空格前

  .TextMatrix(.Rows - 1, 0) = mrc.Fields(2)
  .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
  .TextMatrix(.Rows - 1, 2) = mrc.Fields(3)
  .TextMatrix(.Rows - 1, 3) = mrc.Fields(4)
  .TextMatrix(.Rows - 1, 4) = mrc.Fields(5)
  .TextMatrix(.Rows - 1, 5) = mrc.Fields(6)
  .TextMatrix(.Rows - 1, 6) = mrc.Fields(7)
   mrc.MoveNext
 

小結：從中可以看出，有些無空格的資料則可以不用去空格就可查詢；為了以防避免出錯，也可都加上空格，反正也沒啥損失。
二、資料庫的連線

txtsql = "select * from Recharge_info where date>=' " & dtp1.value & " ' and date<=' " & dtp2.value " ' "
        set mrc= executesql(txtsql,msgtext)

總結

關於總結，我們的宗旨是：關係簡單，重點突出