alibek писал(а):В OpenSchema есть много всего, может там есть и эта инфа?
Sub Form_Load()
Set ExEdit = New ExEdit
With ExEdit
Set .Form = Me
.Source = "SELECT * FROM tblКонтрагенты WHERE ID_Контрагента=" & m_iID_Контрагента
.AddTextBox txКонтрагент, lbКонтрагент, "Контрагент"
.AddComboBox(cbСтатус, lbСтатус, "Статус", True, ExValueList, "Т;Действующий;Д;Дилер;Р;Рег.представитель;Б;Бывший;Ч;Черный список").DefaultValue = "Т"
.AddComboBox(cbID_Страны, lbID_Страны, "ID_Страны", True, ExTableOrQuery, "SELECT ID_Страны, Страна FROM tblСтраны ORDER BY 2").DefaultValue = 1
.AddComboBox(cbID_СубФедерации, lbID_СубФедерации, "ID_СубФедерации", True, ExTableOrQuery, "SELECT ID_СубФедерации,СубъектФедерации FROM tblСубъектыФедерации ORDER BY 2").DefaultValue = 10
.AddTextBox txИНН, lbИНН, "ИНН"
.AddTextBox txОКПО, lbОКПО, "ОКПО"
.AddTextBox txОКОНХ, lbОКОНХ, "ОКОНХ"
...
.Read
End With
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2