| Вопрос: To MAGNUS | Добавлено: 22.08.02 22:28 |
Автор вопроса:  krokus
|
|
За код сырой конечно извини я еще и месяца нет как что-то на VB6 пытаюсь на корябать хотя в А2000 база работает и успешно Но достал меня OFFICe вот и пытаюсь переложить А что касается кода там все просто Короче пожурить то всякий может а ты глянь лучше мой вопрос про фильт на DBGrid |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  MAGNUS Вопросов: 12 Ответов: 430 |
Профиль | Цитата | #1 | Добавлено: 22.08.02 22:57 |
|
Da ladno,izwinjatsa tebe ni pered kem ne nujno t.k. wse kogda to nachinali! Esli ti zametil eto ne pustoe bormotanie bilo, a i soweti,kak mojno chego uluchshit. Ja serezno! 1.Pri wibore Tab ispolzuj Select-case, gorazdo menshe koda budet. 2. Tam gde u tebja powtorjaetsa wot eta struktura : If SSTab1.Tab = 3 Then frm.Show vbModal Call OpenTabs(3) DataGrid3.Visible = True Else DataGrid3.Visible = False End If Sdelaj k primeru tak: frm.Show vbModal - a zachem ti ego modalnim pokaziwaesh? Call OpenTabs(SSTab1.Tab) Dalee: rs.open sql,(twoja stroka soedenenija) - a wot etu sql wibiraj Select'om W Calltabs, no tolko stroku, rekordseti tam otkriwat ne nujno. DataGrid(SSTab1.Tab).Visible = True - a iz gridow sozdaj "Control Array" Etot kod zamenit wsu twoju strukturu... Poprobuj. Wot Sobstwenno i wse... A teper srawno kol-wo strok. Raz w 10 menshe u menja poluchilos? No mne toje daleko do ideala. I zapomni - eto wse soweti! Nikak ne poricanie za neumenie. Poka! Filtr ja zawtra posmotru! Sejchas wremeni netu. No tebe goworili prawilno, filtri nado nakapliwat. Samu stroku. Mojno selectom isi uslowijami, no ob etom potom,a dalee rs.filter=Sfilter. Primerno tak. |
||
Страница: 1 |