CASE ThisForm.OptionGroup1.Value = 5
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Холодильник' order by pribori.цена into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 6
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Холодильник' order by pribori.дата_прод into cursor tmpcur1"
ENDCASE
CASE ThisForm.Combo1.value = "Телевизор"
DO CASE
CASE ThisForm.OptionGroup1.Value = 1
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.дата_вып into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 2
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.производ into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 3
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.поставщик into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 4
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.вес into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 5
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.цена into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 6
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Телевизор' order by pribori.дата_прод into cursor tmpcur1"
ENDCASE
CASE ThisForm.Combo1.value = "Стиральная машина"
DO CASE
CASE ThisForm.OptionGroup1.Value = 1
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.дата_вып into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 2
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.производ into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 3
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.поставщик into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 4
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.вес into cursor tmpcur1"
CASE ThisForm.OptionGroup1.Value = 5
ThisForm.Grid1.recordsource = "select pribori.производ, pribori.цена, pribori.дата_вып, pribori.дата_прод, pribori.поставщик, pribori.вес, pribori.количество from pribori!pribori where pribori.название='Стиральная машина' order by pribori.цена into cursor tmpcur1"
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.