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

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

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

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

      ACCESS運行提示錯誤:35602,key is not unique in collection,請各位大神幫忙解決

      漫步者 等級: 普通會員 積分:0 金幣:0 來自:臺州Access交流中心 發表于:2016-05-20 10:16:28   已結帖
      樓主

      Private Sub TreeviewLoad()

          Set TreeView0.ImageList = ImageList.Object

          Me.TreeView0.Nodes.Clear

          Dim CONN As ADODB.Connection
          Dim rs As New ADODB.Recordset
          Dim strSql As String
          Dim nodIndex As Node

          Set nodIndex = TreeView0.Nodes.Add(, , "根", "NCR數據庫", "K3")
          nodIndex.Sorted = True
          nodIndex.Expanded = True

          strSql = "SELECT DISTINCT 信息關聯匯總表.專業 From 信息關聯匯總表"
          Set CONN = CurrentProject.Connection
          CONN.CursorLocation = adUseClient

          rs.Open strSql, CONN, adOpenKeyset, adLockOptimistic, adCmdTableDirect
          Do Until rs.EOF = True
              Set nodIndex = TreeView0.Nodes.Add("根", tvwChild, "干" & rs.Fields("專業"), rs.Fields("專業"), "K1", "K2")
              nodIndex.Expanded = True
              rs.MoveNext
          Loop
          rs.Close

          strSql = "SELECT DISTINCT 信息關聯匯總表.專業,信息關聯匯總表.子專業 From 信息關聯匯總表"
          rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
          Do Until rs.EOF = True
              Set nodIndex = TreeView0.Nodes.Add("干" & rs.Fields("專業"), tvwChild, "枝" & rs.Fields("專業") & rs.Fields("子專業"), rs.Fields("子專業"), "K1", "K2")
              'nodIndex.Expanded = True
              rs.MoveNext
          Loop
          rs.Close

          strSql = "SELECT * From 信息關聯匯總表"
          rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
          Do Until rs.EOF = True
              Set nodIndex = TreeView0.Nodes.Add("枝" & rs.Fields("專業") & rs.Fields("子專業"), tvwChild, "葉" & rs.Fields("專業") & rs.Fields("子專業") & rs.Fields("問題分類4"), rs.Fields("問題分類4"), "K1", "K2")
              rs.MoveNext
          Loop
          rs.Close

          Set rs = Nothing

      End Sub

      Private Sub Treeview0_NodeClick(ByVal Node As Object)
          Dim str As String
          If Node.Text = "NCR數據庫" Then
              str = ""
          ElseIf Node.Key Like "干*" Then
              str = "[專業]='" & Node.Text & "'"
          ElseIf Node.Key Like "枝*" Then
              str = "[子專業]='" & Node.Text & "'"
          Else
              str = "[問題分類4]='" & Node.Text & "'"
          End If
          Me.信息關聯窗體.Form.FilterOn = True
          Me.信息關聯窗體.Form.Filter = str
      End Sub

       

      access培訓  誠聘access開發人員

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

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

      網站工作人員微信

      漫步者 等級:普通會員 積分:0 金幣:0 來自:臺州Access交流中心 發表于2016/5/20 13:29:49 
      1樓 得分: 0
          漫步者
            獲得社區協助:請教問題(即發帖)1篇,其中獲得解決的1篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      123木頭人 等級:一星助教★ 積分:451 金幣:1146 來自:龍巖Access交流中心 發表于2016/5/20 19:45:37 最佳答案
      2樓 得分: 2

      這樣的錯誤是你的treeview的節點的key值重復時造成的,建立tree的原則是key不能重復。


      下面信息重復了:

      電氣          接地系統安裝  無

      電氣          接地系統安裝  無

      strSql語句用下面代碼中的第一句替換就OK了:



          strSql = "SELECT DISTINCT 專業, 子專業, 問題分類4 From 信息關聯匯總表"
          rs.Open strSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
          Do Until rs.EOF = True
              Set nodIndex = TreeView0.Nodes.Add("枝" & rs.Fields("專業") & rs.Fields("子專業"), tvwChild, "葉" & rs.Fields("專業") & rs.Fields("子專業") & rs.Fields("問題分類4"), rs.Fields("問題分類4"), "K1", "K2")
              rs.MoveNext
          Loop








          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          123木頭人  [協助社區成員回帖223篇,其中【最佳答案】68篇;發布技術文章28篇。]
          Access軟件網助教團隊 
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.beijingfeeling.com/reg/reg.asp?userid=1455
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      總記錄:2篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5