| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
База данных - файл Excel [D7]
Sonnetrut © (2006-03-14 13:46:00)Проблема такая: Имется Эксэлевский файл (БазаДанных). В программеОболочке в Едит1 вводим слово, допустим, "Праздник". В Едит2, допустим, "Выходной". По нажатию на кнопку "Вывести" в Едит3 выводится "8 Марта". Как это сделать??? В экселе это все заранее пробито: на пересечении строки и столбца ("Праздник" и "Выходной" соответственно) находится "8Марта". То есть нужно, чтобы вывелось слово, находящееся на пересечении строки и столбца.
Скиньте, пожалуйста код на мыло!
Boris Marchenko (2006-03-14 18:19:00) [1]A и B - кол-во активных столбцов и строк.
function AAA(Edit1, Edit2: TEdit): String;
var
A, B: Integer;
begin
for i := 1 to A do
// ищем столбец
if WorkBook.WorkSheets[1].Cells[1, i] = Edit1.Text then Break;
for j := 1 to B do
// ищем строку
if WorkBook.WorkSheets[1].Cells[j, 1] = Edit2.Text then Break;
Result := WorkBook.WorkSheets[1].Cells[j, i];
end;
Fay (2006-03-14 14:09:00) [2]> на пересечении строки и столбца ("Праздник" и "Выходной" соответственно)
> находится "8Марта".
Надеюсь, настоящая структура не такая. 8)
Sergey13 (2006-03-14 13:54:00) [3]Задание получено, но тема зарплаты не раскрыта. 8-)
| |
