Private Sub Ñïèñîê86_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i1 As Integer
i1 = list1.ListIndex ÎØÈÁÊÀ
If list1 = "SK-M410XP/SO(3,6)" Or list1 = "TCC-3232H/1H" Then
list2 = AddItem.list1.list(i).i2
i2 = i2 + 1
list1.RemoveItem i
End If
End Sub
ÏÎ×ÅÌÓ ÂÎÇÍÈÊÀÅÒ ÎØÈÁÊÀ? ß ÍÅ ÌÎÃÓ ÏÎÍßÒÜ
MS ACCESS: ÌÍÅ ÍÓÆÍÎ ÑÎÑÒÀÂÈÒÜ 2 ÑÏÈÑÊÀ, ÈÇ ÎÄÍÎÃÎ ÏÅÐÅÊÈÍÓÒÜ ÂÛÁÐÀÍÍÛÅ ÝËÅÌÅÍÒÛ Â ÄÐÓÃÎÉ!? ÊÀÊ?
ÌÎÆÅÒ ÍÅ ÒÅ ÑÏÈÑÊÈ....
Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)