Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.26;
Скачать: CL | DM;

Вниз

База данных - файл Excel   Найти похожие ветки 

 
Sonnetrut ©   (2006-03-14 13:46) [0]

Проблема такая: Имется Эксэлевский файл (БазаДанных). В программеОболочке в Едит1 вводим  слово, допустим, "Праздник". В Едит2, допустим, "Выходной". По нажатию на кнопку "Вывести" в Едит3 выводится "8 Марта". Как это сделать??? В экселе это все заранее пробито: на пересечении строки и столбца ("Праздник" и "Выходной" соответственно) находится "8Марта". То есть нужно, чтобы вывелось слово, находящееся на пересечении строки и столбца.
Скиньте, пожалуйста код на мыло!


 
Sergey13 ©   (2006-03-14 13:54) [1]

Задание получено, но тема зарплаты не раскрыта. 8-)


 
Fay ©   (2006-03-14 14:09) [2]

> на пересечении строки и столбца ("Праздник" и "Выходной" соответственно)
> находится "8Марта".
Надеюсь, настоящая структура не такая. 8)


 
Boris Marchenko ©   (2006-03-14 18:19) [3]

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;



Страницы: 1 вся ветка

Текущий архив: 2006.03.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.067 c
1-1140953091
Vad3
2006-02-26 14:24
2006.03.26
CodeSite и утечки памяти


15-1141120583
AlexeyT
2006-02-28 12:56
2006.03.26
Статья "Написание оптимального кода под Delphi"


9-1126594429
WondeRu
2005-09-13 10:53
2006.03.26
OpenGL. Вывод одновременно растрового и векторного шрифтов. Как?


15-1141398822
oldman
2006-03-03 18:13
2006.03.26
Настоящий программист...


2-1142106737
Fenix
2006-03-11 22:52
2006.03.26
Динамически создаваемое меню.