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

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ???/a> | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      [5分]請教一個關于列表框的問題

      劉哲 等級: 普通會員▲ 積分:142 金幣:0 來自:阜新Access交流中心 發表于:2014-01-12 16:14:32   已結帖
      樓主

      我怎么實現1號按鈕寫入list2的列表框值是唯一的,不允許重復。還有就是窗體一打開讓list1列表框的ID是被選定狀態。謝謝??!點擊下載此附件

       

      access培訓  誠聘access開發人員

          劉哲
            獲得社區協助:請教問題(即發帖)35篇,其中獲得解決的32篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      西出陽關無故人 等級:版主★★★★★ 積分:595 金幣:120 來自:安順Access交流中心 發表于2014/1/12 17:15:10 
      1樓 得分: 0

      Private Sub Command4_Click()
          Dim i As Integer
          Dim str  As String
          Dim is存在 As Boolean
          is存在 = False
          str = List1.Column(0)
          For i = 0 To List2.ListCount - 1    '查找在List2中有沒有與List1選中的相同的內容
              If List2.Column(0, i) = str Then
                  is存在 = True
                  Exit For
              End If
          Next i
          If is存在 = False Then '在List2中沒有與List1選中的相同的內容,則添加到List2中
              Me.List2.AddItem List1.Column(0)
              Me.List2.Requery
          End If
      End Sub

      Private Sub Command5_Click()
          Me.List2.RowSource = ""
      End Sub

      Private Sub Command6_Click()
          If Me.List2.ListCount > 0 Then
              List2.RemoveItem List2.Column(0)
          End If
      End Sub

      Private Sub Form_Load()
          Me.List1.RowSourceType = "值列表"
          Me.List1.RowSource = ""
          Dim rst As DAO.Recordset
          Set rst = CurrentDb.OpenRecordset("qryclgl", dbOpenDynaset)
          For i = 0 To rst.Fields.Count - 1
              Me.List1.AddItem Item:=rst.Fields(i).Name
          Next
          Me.List1.SetFocus
          List1.Selected(0) = True  '這是窗體一打開讓list1列表框的ID是被選定狀態
          rst.Close
          Set rst = Nothing
      End Sub



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          西出陽關無故人
            獲得社區協助:請教問題(即發帖)18篇,其中獲得解決的9篇;
            協助社區成員:協助他人(即回帖)832篇,其中被設為【最佳答案】的218篇;
            協助我們社區:發布技術文章3篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      西出陽關無故人 等級:版主★★★★★ 積分:595 金幣:120 來自:安順Access交流中心 發表于2014/1/12 17:19:12 
      2樓 得分: 0

      再添加下面兩個過程:

      Private Sub List1_DblClick(Cancel As Integer)
        Command4_Click
      End Sub

      Private Sub List2_DblClick(Cancel As Integer)
      Command6_Click
      End Sub

      雙擊列表項,就可實現左右移動,更方便使用!

       



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          西出陽關無故人
            獲得社區協助:請教問題(即發帖)18篇,其中獲得解決的9篇;
            協助社區成員:協助他人(即回帖)832篇,其中被設為【最佳答案】的218篇;
            協助我們社區:發布技術文章3篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      沈軍 等級:版主★★★★★ 積分:356 金幣:960 來自:東莞Access交流中心 發表于2014/1/12 21:24:38 最佳答案
      3樓 得分: 5
          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          楊漢寶
            獲得社區協助:請教問題(即發帖)3篇,其中獲得解決的2篇;
            協助社區成員:協助他人(即回帖)276篇,其中被設為【最佳答案】的72篇;
            協助我們社區:發布技術文章24篇,邀請了2名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      總記錄:3篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5