tag:blogger.com,1999:blog-4403788466717695768.post3413764926096252818..comments2024-03-27T23:31:39.592+04:00Comments on PROИТ: Access: построение дерева разделов - TreeView и VBAElla S.http://www.blogger.com/profile/07399414447459545634noreply@blogger.comBlogger10125tag:blogger.com,1999:blog-4403788466717695768.post-20480694090149976812021-05-22T17:13:43.408+04:002021-05-22T17:13:43.408+04:00Здравствуйте. Как выполнить команду по двойному кл...Здравствуйте. Как выполнить команду по двойному клику на последнем элементе ветки дерева?Константинhttps://www.blogger.com/profile/16221963720902854824noreply@blogger.comtag:blogger.com,1999:blog-4403788466717695768.post-31671249161084389572019-03-20T14:30:03.331+04:002019-03-20T14:30:03.331+04:00Установить в свойствах Checkboxes = trueУстановить в свойствах Checkboxes = trueKnispohttps://www.blogger.com/profile/09969972305021085827noreply@blogger.comtag:blogger.com,1999:blog-4403788466717695768.post-72780085601944191322019-02-06T19:07:15.502+04:002019-02-06T19:07:15.502+04:00К сожалению, давно не работала с этим контролом и ...К сожалению, давно не работала с этим контролом и с VBA, поэтому не смогу подсказать.Ella S.https://www.blogger.com/profile/07399414447459545634noreply@blogger.comtag:blogger.com,1999:blog-4403788466717695768.post-64890370117432558222019-02-02T20:44:42.870+04:002019-02-02T20:44:42.870+04:00Использовал Ваше дерево. Немного подстроил под сво...Использовал Ваше дерево. Немного подстроил под свои таблицы, добавил очистку перед его построением и все заработало. Сейчас бьюсь над тем, чтобы привязать текстовое поле (или подчиненную форму) к дереву, чтобы при выборе элемента дерева рядом выводилась детальная информация о нем. пока почему-то получается либо вывести всю таблицу, либо вообще не могу связать. Пока не смог найти ответа на форумах, может Вы поможете.<br />С Access 2013 раньше не работал, да и с ВБА только пытаюсь разобраться, так что прошу прощения, если глупые вопросы.Олегhttps://www.blogger.com/profile/14340009434094118665noreply@blogger.comtag:blogger.com,1999:blog-4403788466717695768.post-53932487653275604622017-09-25T23:33:33.200+04:002017-09-25T23:33:33.200+04:00Вариант так и не заработалВариант так и не заработалAnonymoushttps://www.blogger.com/profile/03136522967260771496noreply@blogger.comtag:blogger.com,1999:blog-4403788466717695768.post-70245862076417097662017-05-04T20:37:15.710+04:002017-05-04T20:37:15.710+04:00Спасибо за совет. Сейчас эту проблему так и решаю,...Спасибо за совет. Сейчас эту проблему так и решаю, подгружая дочерние элементы. Но это не совсем удобно, учитывая рекурсивный характер нумерации элементов, который у меня используется. Хотел немного облегчить себе жизнь. Anonymoushttps://www.blogger.com/profile/02471251797060101175noreply@blogger.comtag:blogger.com,1999:blog-4403788466717695768.post-20674772593537091312017-05-04T20:11:06.380+04:002017-05-04T20:11:06.380+04:00Давно не работала с этим контролом. Может как вари...Давно не работала с этим контролом. Может как вариант выводить у каждого элемента в скобках количество дочерних элементов? Или подгружать до клика на элементе хотя бы один его дочерний элемент?Ella S.https://www.blogger.com/profile/07399414447459545634noreply@blogger.comtag:blogger.com,1999:blog-4403788466717695768.post-37288039446348026242017-05-04T18:47:10.795+04:002017-05-04T18:47:10.795+04:00Здравствуйте. Дорос уже до наполнения дерева по ча...Здравствуйте. Дорос уже до наполнения дерева по частям. Т.к. элементов несколько тысяч, то построение дерева занимает ощутимое время. Теперь я подгружаю ветку по клику на элемент. Вопрос: как вывести возле элемента значок "+" ? А то неудобно - пока не кликнул, не знаешь есть у этого элемента дочерние позиции или нетAnonymoushttps://www.blogger.com/profile/02471251797060101175noreply@blogger.comtag:blogger.com,1999:blog-4403788466717695768.post-59971080854487620982016-08-01T23:16:45.422+04:002016-08-01T23:16:45.422+04:00Чтобы работало с node, где родители null
Option C...Чтобы работало с node, где родители null<br /><br />Option Compare Database<br /><br />Private Sub Form_Load()<br />Dim strRoot<br />strRoot = ""<br /><br />AddNode (strRoot)<br /><br />End Sub<br /><br />Private Sub AddNode(ByVal ParentID As String)<br />Set rsCommon = New ADODB.Recordset<br /><br />If ParentID = "" Then<br /> rsCommon.Open "SELECT Êîä, Ðîäèòåëü, Èìÿ FROM Req DP WHERE IsNull(Ðîäèòåëü)" & " ORDER BY Èìÿ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic<br /><br /> Do While Not rsCommon.EOF<br /> TreeViewDep.Nodes.Add , , Str(rsCommon("Êîä")) & "$KEY", rsCommon("Èìÿ")<br /> TreeViewDep.Nodes.Item(Str(rsCommon("Êîä")) & "$KEY").Expanded = True<br /> AddNode (Str(rsCommon("Êîä")))<br /> rsCommon.MoveNext<br /> Loop<br /> rsCommon.Close<br /> Set rsCommon = Nothing<br /><br />Else<br /> rsCommon.Open "SELECT Êîä, Ðîäèòåëü, Èìÿ FROM Req DP WHERE Êîä <> Ðîäèòåëü AND Ðîäèòåëü = " & ParentID & " ORDER BY Èìÿ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic<br /><br /> Do While Not rsCommon.EOF<br /> TreeViewDep.Nodes.Add ParentID & "$KEY", tvwChild, Str(rsCommon("Êîä")) & "$KEY", rsCommon("Èìÿ")<br /> TreeViewDep.Nodes.Item(Str(rsCommon("Êîä")) & "$KEY").Expanded = True<br /> AddNode (Str(rsCommon("Êîä")))<br /> rsCommon.MoveNext<br /> Loop<br /> rsCommon.Close<br /> Set rsCommon = Nothing<br />End If<br /><br />End Sub<br /><br />Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-4403788466717695768.post-40673222135160565962016-08-01T23:15:54.439+04:002016-08-01T23:15:54.439+04:00Этот комментарий был удален автором.Anonymoushttps://www.blogger.com/profile/00782765206872524933noreply@blogger.com