機房慢慢搖，總結也是需要寫一寫的，下面介紹一下組合查詢。
思路：
前三個空為空--第乙個組合框--第二個組合--第二個組合框--第三個組合--查詢
**：
if trim(combrelation1.text <> "") then '選擇了第乙個組合關係後，第二行不能為空
if trim(combfield2.text) = "" or trim(comboperator2.text) = "" or trim(txtcontent2.text) = "" then
msgbox "您選擇了組合關係，請輸入資料之後再查詢", vbexclamation + vbokonly, "提示資訊"
exit sub
else
txtsql = txtsql & fieldname(combrelation1.text) & " " & "" & fieldname(combfield2.text) & comboperator2.text & "'" & trim(txtcontent2.text) & "'"
end if
end if
if trim(combrelation2.text) <> "" then '選擇了第二個組合關係後，第三行不能為空
if trim(combfield3.text) = "" or trim(comboperator3.text) = "" or trim(txtcontent3.text) = "" then
msgbox "您選擇了第二個組合，請輸入資料之後再查詢", vbokonly, "提示"
exit sub
else
txtsql = txtsql & fieldname(combrelation2.text) & " " & "" & fieldname(combfield3.text) & comboperator3.text & "'" & trim(txtcontent3.text) & "'"
end if
end if
'開始進行查詢
set mrc = executesql(txtsql, msgtext)
if mrc.recordcount = 0 then
msgbox "沒有您要查詢的學生上機記錄！", vbokonly + vbcritical, "查詢提示"
combfield1.setfocus
mshflexgrid1.rows = 1
'存在上機記錄查詢成功，填充到**
else
with mshflexgrid1
.rows = 1
.cellalignment = 4 '使列標題居中
.textmatrix(0, 0) = "學號"
.textmatrix(0, 1) = "姓名"
.textmatrix(0, 2) = "卡號"
.textmatrix(0, 3) = "金額"
.textmatrix(0, 4) = "系別"
.textmatrix(0, 5) = "年級"
.textmatrix(0, 6) = "班級"
.textmatrix(0, 7) = "性別"
.textmatrix(0, 8) = "狀態"
.textmatrix(0, 9) = "備註"
.textmatrix(0, 10) = "型別"
.textmatrix(0, 11) = "日期"
.textmatrix(0, 12) = "時間"
do while not mrc.eof
.rows = .rows + 1
.textmatrix(.rows - 1, 0) = mrc.fields(1)
.textmatrix(.rows - 1, 1) = mrc.fields(2)
.textmatrix(.rows - 1, 2) = mrc.fields(0)
.textmatrix(.rows - 1, 3) = mrc.fields(7)
.textmatrix(.rows - 1, 4) = mrc.fields(4) & ""
.textmatrix(.rows - 1, 5) = mrc.fields(5) & ""
.textmatrix(.rows - 1, 6) = mrc.fields(6) & ""
.textmatrix(.rows - 1, 7) = mrc.fields(3) & ""
.textmatrix(.rows - 1, 8) = mrc.fields(10) & ""
.textmatrix(.rows - 1, 9) = mrc.fields(8) & ""
.textmatrix(.rows - 1, 10) = mrc.fields(14) & ""
.textmatrix(.rows - 1, 11) = mrc.fields(12) & ""
.textmatrix(.rows - 1, 12) = mrc.fields(13) & ""
mrc.movenext
loop
end with
end if
機房 組合查詢
前言 在剛剛開始機房的時候，僅僅剛剛把整個工程的窗體控制項佈完，聽一些同學說組合查詢有些難，並且我對他們的話深信不疑。但是你現在不做總會到一點時間你是需要去完成的，想到這些，便開始了探索同學們口中的 難 到底有多 難 邏輯分析 想要功能更快的實現，理清邏輯很關鍵。該動筆時就去拿筆畫，一味地在腦子裡想...
機房收費系統 組合查詢
機房收費系統在磕磕絆絆中過來了，這期間遇到問題，解決問題，最後收穫的特別多，在敲得過程中，不斷的學習新知識，應該說組合查詢是收費系統的乙個小難點了吧，起初我是真的不知道該從 下手，總是有種剪不斷理還亂的感覺，分析分析就繞進去了，我總是把問題想的很複雜，其實只要一句 語句，一切都解決了，根本用不到好多...
機房收費系統 組合查詢
關於組合查詢，真的是乙個令人頭疼的東西，但是當自己突然間的做出來時，卻莫名的有種貌似又不是很難得感覺。昨天弄了整整一下午，今天的下午終於在除錯了兩個小時做出來了。首先是查到了一些關於組合查詢的部落格，有乙個共同的特點就是都要獲得使用者所選的欄位名並轉化成資料庫表中的欄位名，這樣實現了人機共同語言的轉...