2025澳门开彩结果历史记录-2025澳门开彩结果-2025澳门开彩查询记录-2025澳门聚宝盆-2025澳门九点半一肖一码-2025澳门精准资料免费全览

LOGO OA教程 ERP教程 模切知識交流 PMS教程 CRM教程 開發(fā)文檔 其他文檔  
 
網(wǎng)站管理員

實現(xiàn)ListView可編輯功能,想學(xué)VBA的朋友千萬別錯過,InkEdit控件

admin
2025年1月28日 13:58 本文熱度 15

內(nèi)容提要 

  • ListView編輯功能

  • LIstView查詢數(shù)據(jù)

  • InkEdit控件修改ListView數(shù)據(jù)

  • 根據(jù)ListView數(shù)據(jù)更新工作表數(shù)據(jù)

大家好,我是冷水泡茶。
前幾天我們分享過一個關(guān)于ListView查詢顯示數(shù)據(jù)的案例:
VBA實用案例,數(shù)據(jù)查詢,ListView顯示、篩選數(shù)據(jù),查詢結(jié)果輸出到工作表
有朋友在后臺留言,希望能增加一個修改按鈕:
?
確實,如果能修改ListView的數(shù)據(jù),再更新到工作表,那就相當(dāng)完美了。
ListView本身不可以編輯,這也是曾經(jīng)困擾我很久的問題,我?guī)缀跛驯榱苏麄€網(wǎng)絡(luò),終于皇天不負(fù)有心人,有大神在網(wǎng)上公布了一個非常好的解決方案,被我給找到了,主要是結(jié)合InkEdit控件和Windows窗口API函數(shù)來實現(xiàn),把InkEdit控件覆蓋到點擊的ListView單元格上面,就像直接修改Excel工作表單元格一樣,效果非常好。
在沒找到這種方法之前,我嘗試過用TextBox來輸入內(nèi)容,但效果不理想,TextBox不能覆蓋到ListView的單元格上面。這種方式我們在「電子發(fā)票登記系統(tǒng)(Access版)」中使用過:
這種方法也能達(dá)到目的,但使用起來有點別扭。
其實,使用InkEdit控件的方法,我們也分享過一個案例:
Excel VBA 實用項目【收費管理系統(tǒng)】使用說明
在我的「Excel 實用收費項目【財務(wù)管理系統(tǒng)注冊版】」中,也使用了InkEdit控件來編輯ListView。
不過,前面提及的案例都是更新Access數(shù)據(jù)庫,沒有更新Excel表的,今天就乘這個機(jī)會分享一波。

用戶窗體

我們在用戶窗體上添加幾個控件:

1、InkEdit控件,這個控件類似于TextBox控件,但它有句柄(Handle)屬性,可以通過API函數(shù)來控制它。

2、全選按鈕,點擊選中所有記錄,按鈕變成“全消”,再點擊,取消所有勾選,按鈕變回“全選”。

3、刪除按鈕,刪除選中的記錄。

4、是否修改復(fù)選框,勾選則顯示刪除按鈕,同時ListView可編輯,不勾選則隱藏刪除按鈕,ListView不可編輯。復(fù)選框的值變化時,同步更新工作表Settings的值。

工作表

1、增加一張工作表Settings,用來保存一些設(shè)置選項,目前只有一個“修改狀態(tài)”,取值On和Off,當(dāng)為On時,在啟動用戶窗體是,是否修改復(fù)選框處于勾選狀態(tài),反之則不勾選:

2、工作表的CodeName修改了一下,方便直接引用:

基本實現(xiàn)過程

1、用戶窗體啟動時,我們把數(shù)據(jù)表shData裝入數(shù)組,并添加到ListView,同時將月份、姓名添加到兩個復(fù)合框的List,供下拉選擇

2、當(dāng)我們點擊ListView的ListItem時,如果是否修改處于勾選狀態(tài),同時點擊的單元格是設(shè)定為允許編輯的,則在其上顯示InkEdit控件,我們在InkEdit中輸入新的值(看上去就像在ListView中輸入一樣),按回車或方向鍵或鼠標(biāo)點擊其他單元格,則完成修改。如果連續(xù)按擊Esc鍵兩次,則取消修改。

3、修改內(nèi)容會立即更新到工作表。

完整代碼文本,詳見另一條推文。

寫在最后

1、我們實現(xiàn)了ListView的編輯功能,同時更新工作表,我們沒有做“新增”功能,即在工作表中新增一條記錄,主要是考慮直接在工作表中新增記錄會更方便一些。如果是更新數(shù)據(jù)庫,那么“新增”功能是必不可少的。

2、我們的編輯功能還是比較簡陋,需要純手工輸入。還可以進(jìn)一步優(yōu)化,比如:

(1)日期采用「日期控件」來輸入。

(2)姓名、性質(zhì)、狀態(tài),可以使用下拉列表輸入,可以在Setting表中添加相應(yīng)的選項。

(3)金額,進(jìn)行一些合規(guī)性校驗,確保輸入的是數(shù)字。

(4)如果有計算關(guān)系的字段,如數(shù)量*單價等于金額,我們可以通過數(shù)據(jù)、單價的變化來自動計算金額。

3、上述優(yōu)化項目,由于時間關(guān)系,加之我們在以前的案例中也分享過,就不打算再搞了。感興趣的朋友可以自己摸索,有問題可以留言討論,如果自己搞不定,但是又急需使用這樣的功能的,歡迎付費定制,價廉物美、童叟無欺

4、本案例實現(xiàn)ListView可編輯的方法,參考自EXCELHOME的一個貼子,我把網(wǎng)址放在這,感興趣的朋友可以去看看,樓主解釋得非常全面:

https://club.excelhome.net/thread-1423746-1-1.html

~~~~~~End~~~~~~


閱讀原文:原文鏈接


該文章在 2025/2/5 17:01:29 編輯過
關(guān)鍵字查詢
相關(guān)文章
正在查詢...
點晴ERP是一款針對中小制造業(yè)的專業(yè)生產(chǎn)管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國內(nèi)大量中小企業(yè)的青睞。
點晴PMS碼頭管理系統(tǒng)主要針對港口碼頭集裝箱與散貨日常運作、調(diào)度、堆場、車隊、財務(wù)費用、相關(guān)報表等業(yè)務(wù)管理,結(jié)合碼頭的業(yè)務(wù)特點,圍繞調(diào)度、堆場作業(yè)而開發(fā)的。集技術(shù)的先進(jìn)性、管理的有效性于一體,是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。
點晴WMS倉儲管理系統(tǒng)提供了貨物產(chǎn)品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質(zhì)期管理,貨位管理,庫位管理,生產(chǎn)管理,WMS管理系統(tǒng),標(biāo)簽打印,條形碼,二維碼管理,批號管理軟件。
點晴免費OA是一款軟件和通用服務(wù)都免費,不限功能、不限時間、不限用戶的免費OA協(xié)同辦公管理系統(tǒng)。
Copyright 2010-2025 ClickSun All Rights Reserved

主站蜘蛛池模板: 摇钱树综合资料大全免费 | 澳门一肖一码100%精准一 | 308k二四六天天好彩资料大全 | 2025年资料大全生肖图 | 澳门今晚出啥码呢 | 三期必出一肖三期内必开一期 | 2025新澳免费资料 | 老版本reu6h宝典下载 | 新澳门金牛版正版新澳门金牛版84 | 今期正版管家婆图片 | 神算子高手论坛资料第二期 | 2025年新奥特开奖记录查询表 | 澳门特马图库 | 新澳精准资料免费提供630期 | 彩库宝典下载和安装 | 最精准免费资料大全旅游团 | 2025年澳门免费资料大全正版2025 | 澳门管家婆资料正 | 新澳天天开奖资料大全1050期 | 管家婆精选二肖二码 | 六合杀手正版综合资料 | 118图库彩图手机版 118图库彩图区图纸 | 2025新奥免费资料 | 246天天天彩天好彩资料大全246 | 49图库手机版安卓下载v4.4.6 | 天下彩票免费资料大全 | 龙腾虎跃是什么生肖百度一下 | 118彩图库免费资料 118彩图库九龙乖乖图库网站app | 管家婆一码一肖资料大全白蛇图坛 | 三期必出三期必出持高清手机在线观看 | 今晚最准确一注大神带人杀号 | 最准一肖一码100%中奖中奖方式 | 香港免费公开资料大全118 | 今晚最准确一注组合冷热长龙 | 正版资料大全2025年一专业资料推荐 | 澳门凤凰资料四肖八码 | 澳门四肖四马中特期期准 | 管家婆三肖三码三期必出一期 | 管家婆专卖店 | 一码一肖100准中奖 一码一肖100准是真是假?解密内幕 | 最准的一肖一码100%准 |