• Откуда: :зИ
  • На форуме с 21 мая 2007г.
  • Сообщений: 73
  • Спасибо: 0

Тема: Работа с версиями объекта

Подскажите, пожалуйста, каким образом программно можно создать новую верию объекта не на основе активной, а на основе какой-то предыдущей?

TDMS 3.0.105

Ответ от Edhunter (изменено: Edhunter, 20 сентября 2007г. 15:10:03)

  • На форуме с 5 апреля 2007г.
  • Сообщений: 400
  • Спасибо: 3

Re: Работа с версиями объекта

Sub TDMSVersions(Obj)
Dim SelVersion, newVersion, EditDlg
Set SelVersion = ThisApplication.Dialogs.SelectDlg
SelVersion.SelectFrom = Obj.Versions
If SelVersion.Show = True Then
    With SelVersion.Objects(0)
        .Versions.Create "Command Test" , "Command Test"
    End With
End If
End Sub

Попробуйте так