- Код: Выделить всё
Public Structure struct_Zakaz
Dim Number As Short
Dim TypeProf As String
Dim ColorProf As String
Dim Napoln As String
Dim Height As Integer
Dim Width As Integer
Dim Kol As Short
Dim Price As Integer
Dim Sum As Integer
Dim Rab_with_nap_min As Integer
Dim Rab_with_nap_max As Integer
Dim Rab_without_nap_min As Integer
Dim Rab_without_nap_max As Integer
Dim Rab_sb_min As Integer
Dim Rab_sb_max As Integer
Dim SelicKol As Single
Dim Nap_Height As Integer
Dim Nap_Width As Integer
End Structure
Public Zakaz(100) As struct_Zakaz
Public Structure struct_DBZakaz
Dim NumZakaz As Short
Dim DateZakaz As Date
Dim ZakazchikName As String
Dim ZakazchikTel As String
Dim KolPos As Short
Dim zak() As struct_Zakaz
End Structure
Public DBZakaz(5000) As struct_DBZakaz
Этот оператор проходит без проблем:
- Код: Выделить всё
DBZakaz(ColZakaz).KolPos = Pos
А тут выдает ошибку:
- Код: Выделить всё
DBZakaz(ColZakaz).zak(i).Number = Zakaz(i).Number
При построении ошибок и предупреждений не было.
