<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access培訓
      網站公告
      ·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
      您的位置: 首頁 > 技術文章 > 源碼示例

      【access源碼通用函數】在窗體中實現動態行號(連續序號)

      時 間:2010-12-01 00:00:00
      作 者:紅塵如煙   ID:10768  城市:成都
      摘 要:在窗體中顯示記錄的行號

      正 文:

            以前有一陣子需要這個功能,不過沒有找到好的辦法,后來無意中在微軟網站的幫助中心中見到一個實現方法,思路很好,不過感覺還能再改進,于是按照這個思路重新寫了一個通用函數,效率更高,用起來更簡單。微軟KB原文地址:http://support.microsoft.com/kb/120913

      源代碼:

      '===============================================================
      '函數名稱: GetLineNumber
      '功能描述: 在窗體中顯示記錄的行號
      '輸入參數: DataForm     必需的,要顯示行號的綁定數據窗體
      '返回參數: 每一行記錄的行號
      '使用說明: 在綁定窗體中創建一個文本框,然后將控件來源設為:=GetLineNumber([Form])  即可。
      '兼 容 性:
      '作    者: 紅塵如煙
      '創建日期: 20010-11-26
      '===============================================================
      Function GetLineNumber(DataForm As Form)
      On Error GoTo Err_GetLineNumber
          With DataForm.RecordsetClone
              .Bookmark = DataForm.Bookmark
              GetLineNumber = .AbsolutePosition + 1
          End With
      Err_GetLineNumber:
      End Function


      附   件:

      點擊下載此附件


      圖   示:



      Access軟件網QQ交流群 (群號:143677707)       access源碼網店

      最新評論 查看更多評論(25)

      2014/11/28 0:27:39響馬
      我還以為“刪除數據”之后行號不會更新,
      沒想到滑動鼠標之后又發現:行號居然更新了。

      2014/9/3 13:07:09李志能
      這個函數好慢

      2014/6/17 16:58:31李制檣
      ADO更新數據  處于立即更新模式就好

      2014/6/17 0:12:35大地星路
      如果用ADO更新數據,會出現無法獲得焦點,導致出現“在不使用AddNew或Edit的情況下,更新(Update)或取消更新(CancelUpdate)”的錯誤。

      2014/3/25 11:54:47石磊
      數據量大時,行號顯示的非常慢,只有鼠標劃過才會出現,望能改一下

      發表評論您的評論將提升作者分享的動力!快來評論一下吧!

      用戶名:
      密 碼:
      內 容:
       

      常見問答

      技術分類

      相關資源

      最新帖子

      關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助