msgbox "終止日期不能早於起止日期！", vbokonly + vbexclamation, "提示"
exit sub
else
if mrc.eof = true then
msgbox "沒有資料記錄！", vbokonly + vbexclamation, "提示"
exit sub
end if
end if
with mshflexgrid1
.rows = 1
.cols = 7
.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) = trim(mrc.fields(1))
.textmatrix(.rows - 1, 1) = trim(mrc.fields(2))
.textmatrix(.rows - 1, 2) = trim(mrc.fields(3))
.textmatrix(.rows - 1, 3) = trim(mrc.fields(4))
.textmatrix(.rows - 1, 4) = trim(mrc.fields(5))
.textmatrix(.rows - 1, 5) = trim(mrc.fields(6))
mrc.movenext
loop
end with
msgbox "查詢成功！", vbokonly + vbexclamation, "提示"
mrc.close
rem：匯出為excel
private sub cmdexcel_click()
call exporttoexcel(mshflexgrid1)
end sub
機房收費系統之收取金額和退還金額查詢
收取金額流程圖 實現 private sub cmdexport click call exporttoexcel msflexgrid1 end sub private sub cmdinquery click dim txtsql,msgtext as string dim mrc as ado...
機房收費系統 組合查詢
機房收費系統在磕磕絆絆中過來了，這期間遇到問題，解決問題，最後收穫的特別多，在敲得過程中，不斷的學習新知識，應該說組合查詢是收費系統的乙個小難點了吧，起初我是真的不知道該從 下手，總是有種剪不斷理還亂的感覺，分析分析就繞進去了，我總是把問題想的很複雜，其實只要一句 語句，一切都解決了，根本用不到好多...
機房收費系統 組合查詢
關於組合查詢，真的是乙個令人頭疼的東西，但是當自己突然間的做出來時，卻莫名的有種貌似又不是很難得感覺。昨天弄了整整一下午，今天的下午終於在除錯了兩個小時做出來了。首先是查到了一些關於組合查詢的部落格，有乙個共同的特點就是都要獲得使用者所選的欄位名並轉化成資料庫表中的欄位名，這樣實現了人機共同語言的轉...