| |
|
|
| | Вилавливаю из подчинённой формы записи по коду:
Private Sub TreeView0_NodeClick(ByVal Node As Object)
Set Tree = Me.TreeView0.Object
If Node.Key Like "1OS*" Then
Me.подчиненная_форма_КонстантаСрезОсновныхПОСЛЕДНИЙ.SetFocus
With Me.подчиненная_форма_КонстантаСрезОсновныхПОСЛЕДНИЙ.Form
.Filter = "КодСклада=" & Node.Key
.FilterOn = True
End With
Else
End If
End Sub
==========================
ругается на ".Filter = "КодСклада=" & Node.Key"
при этом код обрабативается до уровня 1OS*" т.е. родителя узла, а самих детей не ловит.
кто поможет спс.
борюсь с этим злим змеем Tree 
.Filter = "КодСклада=" & Node.Key
акс не понимает что такое КодСклада, как правильно обратиться? (походу туплю уже, но всё же) | |
| |
| |
| |
|
|
| | Node.Key - по ходу стринг попробуй
.Filter = "КодСклада=" & Chr(34) & Node.Key & Chr(34)
Chr(34) это " - вставил для наглядности. | |
| |
| |
| |
|
|
| | переделал на
===========================================
Public Sub TreeView0_NodeClick(ByVal Node As Object)
Set Tree = Me.TreeView0.Object
Me.IdUzel.Value = Mid(Node.Key, 2, 3)
'Me.IdUzel.Value = Node.Key
Me.IdUzel.Requery
With Me.подчиненная_форма_КонстантаСрезОсновныхПОСЛЕДНИЙ.Form
If Node.Key = "1OS" Then
Me.IdUzel.Value = Null
.FilterOn = False
Else
If Node.Key Like "s*" Then
.Filter = "подчиненная_форма_КонстантаСрезОсновныхПОСЛЕДНИЙ!КодСклада=" & Chr(34) & Mid(Node.Key, 2, 3) & Chr(34)
'MsgBox подчиненная_форма_КонстантаСрезОсновныхПОСЛЕДНИЙ!КодСклада
.FilterOn = True
End If
End If
End With
End Sub
======================================
фильтр срабативает НО данние не отражает....хотя Mid(Node.Key, 2, 3) имеет необходимое значение
ключ идёт к примеру S57 мидом убираю S, остаётся 57 (КодСклада), но не отбирает падло.
народ помогайте. с ума схожу | |
| |
| |
| |
|
|
| | подч форму прорекверить м.б.
.FilterOn = True
.requery | |
| |
| |
| |
|
|
| | поле [КодС клада] - какой формат имеет?
вот это - для строкового элемента
!КодС клада=" & Chr(34) & Mid(Node.Key, 2, 3) & Chr(34)
|
если [КодС клада] - число то как воспримет Акс 57="57" в форме хз.
попробуй
!КодС клада=" & Val( Mid(Node.Key, 2, 3) ) | |
| |
| |
| |
|
|
| | он не понимает чтот такое код склада, хотя стоит цикл обращения по форме With
перепроверяю на MsgBox "![КодСклада] =" & Val(Mid(Node.Key, 2, 3)) пишет
![КодСклада] =57 к примеру (т.е. узел читает а форма нет)
форма ленточная, на каждой записи есть КодСклада. пока не получается отфильровать | |
| |
| |
| |
|
|
| | kot_k_k :СПАСИБО
всё пошло МЛЯ.
помолго вот это конечно Val( Mid(Node.Key, 2, 3) ) + поменял непосредственную ссилку на КодСклада
код
==================
Public Sub TreeView0_NodeClick(ByVal Node As Object)
Set Tree = Me.TreeView0.Object
Me.IdUzel.Value = Mid(Node.Key, 2, 3)
'Me.IdUzel.Value = Node.Key
Me.IdUzel.Requery
With Me.подчиненная_форма_КонстантаСрезОсновныхПОСЛЕДНИЙ.Form
If Node.Key = "1OS" Then
Me.IdUzel.Value = Null
.FilterOn = False
Else
If Node.Key Like "s*" Then
.Filter = "КодСклада =" & Val(Mid(Node.Key, 2, 3))
.FilterOn = True
'Mid(Node.Key, 2, 3)
'MsgBox "КодСклада =" & Val(Mid(Node.Key, 2, 3))
.FilterOn = True
End If
End If
End With
End Sub
=========================== | |
| |
| |
