Search options (Page 132 of 400)

К сожалению не подскажу, как это реализовать для бесконечности, т.к. это будет в принципе неверный подход к сортировке и даже если это реализовать, работать думаю будет медленно. Необходима настоящая иерархия в данном случае.

Здравствуйте

Именно так сделать не получиться.

Можете рядом разместить две кнопки, которые будут вместо этих стрелочек.

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Edit1.Value := Form1.Edit1.Value + 1;
end;

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.Edit1.Value > 0 then Form1.Edit1.Value := Form1.Edit1.Value - 1;
end;

kim143
This error mean, that you have empty variable which you try to convert to number type. Example, your SQLExecute statement return nothing, but you try use it for mathematical operations in Form4_Button1_OnClick

Hello.

An example:
http://myvisualdatabase.com/forum/misc. … download=1

Вместо этой строки

if iCol = 0 then Form1.Memo2.Lines.Add(s);

напишите

if iCol = 0 then Form1.Memo2.Lines.Add(Form1.TableGrid1.Cells[iCol,iRow]);

Try to change this event

procedure Form3_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
  if form3.edit1.Value + sqlexecute('select TOTAL(gram) from sub where id_tab_in =' +form3.combobox1.sqlValue) > sqlexecute('select grams from tab_in where id ='+form3.combobox1.sqlValue) then showmessage ('Not Allowed');
  if form3.edit1.Value + sqlexecute('select TOTAL(gram) from sub where id_tab_in =' +form3.combobox1.sqlValue) <= sqlexecute('select grams from tab_in where id ='+form3.combobox1.sqlValue) then form3.button1.click;
end;

How long do you wait before the TableGrid is filled with data?

Also I made an example, how to made pagination:

Evgeniy D
К сожалению ваш способ организовать иерархию нельзя назвать правильным. В тоже время в программе пока нет компонента TreeView чтоб организовать иерархию правильным способом.

Точней он есть, но создать его можно только с помощью скрипта, также только с помощью скрипта есть возможность работать с иерархией, но для этого необходимы навыки программирования.

Проект с примером:

Какая то проблема в стороннем компоненте (грид), если присутствует дата, то это вызывает как проблему в ComboBox так и с формой. Спасибо, постараюсь разобраться.

Another way

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
  form1.combobox1.dbfilter := 'id=1 or id=3';
  form1.combobox1.dbupdate;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
  form1.combobox1.dbfilter := 'id=1 or id=2 or id=4';
  form1.combobox1.dbupdate;
end;

It's not possible, you can highlight only whole cell.

tiopentalna
Скачайте пожалуйста данный пример
http://myvisualdatabase.com/forum/misc. … download=1