• Анна
  • Участник
  • Неактивен
  • На форуме с 17 июля 2015
  • Сообщений: 16

Тема: Создание формы ввода

Здравствуйте! Подскажите пожалуйста,при создании формы ввода используя объект AxDbGrid выдает ошибку "Несоответствие типа 'Query.Show'", а при использовании объекта AxDbForm все работает в одном и том же скрипте.В чем может быть ошибка? Как подключить набор данных к AxDbGrid ?
Вот текст:
      Set Query= TCSApp.UserRecordSet("FindNomenclat_in_Tp",False,Params,ParamValues)
      i=Form.UserData.Add("Query")
      Form.UserData.TagValues(i)=Query
      Set AxDbForm_Rezultat=Form.Controls("AxDbForm_Rezultat1"), где AxDbForm_Rezultat -это компонент Dbgrid
      Call Query.Show(AxDbForm_Rezultat) (здесь выдает ошибку "Несоответствие типа 'Query.Show')

Ответ от Дмитрий Гамий (изменено: Дмитрий Гамий, 17 июля 2015 17:34:17)

  • Откуда: г.Днипро, CSoft Украина
  • На форуме с 10 декабря 2008
  • Сообщений: 748

Re: Создание формы ввода

Анна пишет:

Call Query.Show(AxDbForm_Rezultat) (здесь выдает ошибку "Несоответствие типа 'Query.Show')

Таким образом можно выводить модули TechnologiCS только на компонент AxDbForm

По-моему, выводить модули TechnologiCS на компонент AxDbGrid надо так:

Form.Controls("AxDbForm_Rezultat1").DataSource = Query

Компонент AxDbGrid реализует интерфейс ICsdnAxDbGrid, как с ним работать можно почитать здесь

Для настройки внешнего вида модуля при выводе на форму ввода  ещё можно использовать интерфейс ICustomizedModule (например, убрать панель инструментов, скрыть кнопки или зависимые объекты).

  • Анна
  • Участник
  • Неактивен
  • На форуме с 17 июля 2015
  • Сообщений: 16

Re: Создание формы ввода

Спасибо большое, теперь работает.