国产99久久精品_欧美日本韩国一区二区_激情小说综合网_欧美一级二级视频_午夜av电影_日本久久精品视频

最新文章專題視頻專題問答1問答10問答100問答1000問答2000關鍵字專題1關鍵字專題50關鍵字專題500關鍵字專題1500TAG最新視頻文章推薦1 推薦3 推薦5 推薦7 推薦9 推薦11 推薦13 推薦15 推薦17 推薦19 推薦21 推薦23 推薦25 推薦27 推薦29 推薦31 推薦33 推薦35 推薦37視頻文章20視頻文章30視頻文章40視頻文章50視頻文章60 視頻文章70視頻文章80視頻文章90視頻文章100視頻文章120視頻文章140 視頻2關鍵字專題關鍵字專題tag2tag3文章專題文章專題2文章索引1文章索引2文章索引3文章索引4文章索引5123456789101112131415文章專題3
問答文章1 問答文章501 問答文章1001 問答文章1501 問答文章2001 問答文章2501 問答文章3001 問答文章3501 問答文章4001 問答文章4501 問答文章5001 問答文章5501 問答文章6001 問答文章6501 問答文章7001 問答文章7501 問答文章8001 問答文章8501 問答文章9001 問答文章9501
當前位置: 首頁 - 科技 - 知識百科 - 正文

access解決組合框無法滿足大量數據的問題

來源:懂視網 責編:小采 時間:2020-11-09 08:06:34
文檔

access解決組合框無法滿足大量數據的問題

access解決組合框無法滿足大量數據的問題:問題 : Access里面有 組合 框,可以很快地從多行記錄中選擇所需要的 數據 。但是如果記錄超過1000-2000呢?選擇就非常不方便了。我該怎么辦? 回答: 其實很多 數據 都可以分類(分層)來選擇,而且我們可以預先篩選 數據 。 以下這個示例就是用重復打開同
推薦度:
導讀access解決組合框無法滿足大量數據的問題:問題 : Access里面有 組合 框,可以很快地從多行記錄中選擇所需要的 數據 。但是如果記錄超過1000-2000呢?選擇就非常不方便了。我該怎么辦? 回答: 其實很多 數據 都可以分類(分層)來選擇,而且我們可以預先篩選 數據 。 以下這個示例就是用重復打開同

問題 : Access里面有 組合 框,可以很快地從多行記錄中選擇所需要的 數據 。但是如果記錄超過1000-2000呢?選擇就非常不方便了。我該怎么辦? 回答: 其實很多 數據 都可以分類(分層)來選擇,而且我們可以預先篩選 數據 。 以下這個示例就是用重復打開同

問題:

Access里面有組合框,可以很快地從多行記錄中選擇所需要的數據。但是如果記錄超過1000-2000呢?選擇就非常不方便了。我該怎么辦?

回答:

其實很多數據都可以分類(分層)來選擇,而且我們可以預先篩選數據。

以下這個示例就是用重復打開同一個窗體類來完成多層次數據的選擇。

當然,還包括預先篩選數據功能。

好了,現在開始:

1、建立一個窗體(testForm),里面有一個文本框(text0),一個按鈕(Command2)。

2、建立一個窗體(selectForm),里面有一個列表框(list0)。

3、在testForm中的文本框的“更新后”事件中寫入以下代碼以打開品名選擇窗體(selectForm),并對其中的列表框(list0)的行來源(RowSource)進行賦值。

Private Sub Text0_AfterUpdate()

DoCmd.OpenForm "selectform"

'這行代碼就實現了BTYPE表的模糊檢索,使用的是 WHERE 子句中的 LIKE 關鍵字進行通配

Forms("selectform").List0.RowSource = "SELECT btype.soncount, btype.UserCode, btype.FullName, btype.typeId FROM btype WHERE btype.fullname like '*" & Text0.Value & "*' "

End Sub

4、在testForm中的命令按鈕的“單擊”事件中寫入以下代碼以打開品名選擇窗體,按分類檢索

5、然后再在testForm中輸入以下代碼以完成多次打開窗體本身并顯示子類中數據的功能。

為了能夠使代碼重復利用,寫了兩個通用過程

Option Compare Database

Dim f

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'先設定窗體的“鍵預覽”屬性為“是”

'本過程將加快你的輸入速度

'如果按 ESCAPE 鍵,就關閉窗體

If KeyCode = vbKeyEscape Then

closeAllSelectForm "SelectForm"

End If

End Sub

Private Sub List0_DblClick(Cancel As Integer)

checkYouSelect

End Sub

Private Sub List0_KeyPress(KeyAscii As Integer)

'本過程實現全鍵盤操作

If KeyAscii = 13 Then

checkYouSelect

End If

End Sub

Sub closeAllSelectForm(strFormName As String)

'通用過程1

'本過程用來關閉所有的指定名稱的窗體

For Each objForm In Forms

If objForm.Name = strFormName Then

DoCmd.Close acForm, objForm.Name

End If

Next objForm

End Sub

Sub checkYouSelect()

'通用過程2

'檢測你的選擇

'如果發現 suncount 列為 0(表示沒有下一層了)

'就可以把你選定的產品名稱放到文本框中了

On Error Resume Next

Set f = New Form_SelectForm

Dim objForm As Form

If List0.Column(0) = 0 Then

Forms("testform").Text0.Value = List0.Column(2)

closeAllSelectForm "SelectForm"

Else

f.Visible = True

f.List0.RowSource = "SELECT btype.soncount, btype.UserCode, btype.FullName, btype.typeId FROM btype WHERE parid='" & List0.Value & "'"

End If

End Sub

聲明:本網頁內容旨在傳播知識,若有侵權等問題請及時與本網聯系,我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com

文檔

access解決組合框無法滿足大量數據的問題

access解決組合框無法滿足大量數據的問題:問題 : Access里面有 組合 框,可以很快地從多行記錄中選擇所需要的 數據 。但是如果記錄超過1000-2000呢?選擇就非常不方便了。我該怎么辦? 回答: 其實很多 數據 都可以分類(分層)來選擇,而且我們可以預先篩選 數據 。 以下這個示例就是用重復打開同
推薦度:
標簽: 無法 數據 解決
  • 熱門焦點

最新推薦

猜你喜歡

熱門推薦

專題
Top
主站蜘蛛池模板: 精品一区二区三区三区 | 亚洲小视频在线 | 欧美人在线一区二区三区 | 国产毛片一区二区三区精品 | 国产精品电影一区二区三区 | 麻豆一区| 天码毛片一区二区三区入口 | 亚洲高清在线视频 | 亚洲 欧美 自拍 另类 欧美 | 五月天婷婷视频在线观看 | 中文字幕另类 | 97精品国产91久久久久久久 | 久久精品国产免费中文 | 天天爽夜夜爽一区二区三区 | 午夜免费视频 | 亚洲原创区 | 国产特级全黄一级毛片不卡 | 亚洲欧美中文日韩综合 | 欧美我不卡 | 久久国产综合精品欧美 | 最近中文字幕电影在线看 | 日韩在线网| 欧美色图在线观看 | 免费一级毛片视频 | 欧美日a| 中文字幕在线播放第一页 | 99久久国产亚洲综合精品 | 91精品一区二区三区在线 | 久久伊人精品一区二区三区 | 亚洲综合欧美 | 99国产精品高清一区二区二区 | 国产极品视频 | 亚洲欧美日韩激情在线观看 | 日韩www视频| 亚洲码欧美码一区二区三区 | 久久久久国产成人精品亚洲午夜 | 日韩欧美亚洲视频 | 欧美综合第一页 | 国产精品伦一区二区三级视频 | 欧美极品第1页专区 | 亚欧免费视频一区二区三区 |