Какой тиданных мне нужен?

[Vasiliska]

ACCOPT.table2.FieldByName('summ').. .:=Edit1...*accopt.Table1Cena...;
вот строчка из программы ,и у меня к ней есть три столбца таблицы,один из них с числом, берущемся из другой табл, должно умножатся на число из едита и вносится в третий столбец,и так вопрос в том что надо после точки написать чтобы тип данных был один и они перемножились и внеслись в столбец??!!!

[Yurk@]

судя по тому что имя поля в таблице именуется "summ" то скорее всего тип данных нужен AsCurrency

[Vasiliska]

Сообщение от Yurk@

судя по тому что имя поля в таблице именуется "summ" то скорее всего тип данных нужен AsCurrency

ACCOPT.table2.FieldByName('summ').A sInteger:=Edit1.???*accopt.Table1Ce na.AsInteger;
что вместо знаков вопроса надо поставить чтобы перемножилось???

[Stilet]

Ничего. Нужно преобразовывать в число - StrToIntDef(Edit1.text,0); и пусть это участвует в выражении.

[Vasiliska]

Сообщение от Stilet

Ничего. Нужно преобразовывать в число - StrToIntDef(Edit1.text,0); и пусть это участвует в выражении.

Пасибки тебе!!!!!!!=))))))))))Теперь перемножает!!!!!!=)))))))))

Сообщение от Stilet

Ничего. Нужно преобразовывать в число - StrToIntDef(Edit1.text,0); и пусть это участвует в выражении.

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

procedure TForm10.BitBtn1Click(Sender: TObject);
var present : TDateTime;
    startOfWeek : TDateTime;
    endOfWeek : TDateTime;
    week : Array [1..7] of integer;
    startOfMonth : TDateTime;
    endOfMonth : TDateTime;
    month : Array [1..31] of integer;
    startOfYear : TDateTime;
    endOfYear : TDateTime;
    year : Array [1..12] of integer;
    i : integer;
begin
  If MWeek.Checked = True then
  begin
    Series1.Clear;

    for i := 1 to 7 do
      week[i] := 0;

    present := now;
    startOfWeek := startOfAWeek(YearOf(present), WeekOf(present));
    endOfWeek := endOfAWeek(YearOf(present), WeekOf(present));

    Table1.Text := 'Select * From QuestsArc Where ' +
      '(DateComplete >= '''+ FormatDateTime('dd/mm/yyyy',startOfWeek)+''')' +  'and'+
      '(DateComplete <=  '''+ FormatDateTime('dd/mm/yyyy',endOfWeek)+''')';
    Table1.Open;
    Table1.First;

    while Table1.Eof <> True do
    begin
      Inc(week [DayOfTheWeek(Table1.FieldByName('DateComplete').Value)]);
      Table1.Next;
    end;

    for i := 1 to 7 do
      Series1.AddXY(i, week[i]);
  end;

  If MMonth.Checked = True then
  begin
    Series1.Clear;

    for i := 1 to 31 do
      month[i] := 0;

    present := now;
    startOfMonth := startOfAMonth(YearOf(present), MonthOf(present));
    endOfMonth := endOfAMonth(YearOf(present), MonthOf(present));

    Table1.Text := 'Select * From QuestsArc Where ' +
      '(DateComplete >= '''+ FormatDateTime('dd/mm/yyyy',startOfMonth)+''')' +  'and'+
      '(DateComplete <=  '''+ FormatDateTime('dd/mm/yyyy',endOfMonth)+''')';
   Table1.Open;
    Table1.First;

    while Table1.Eof <> True do
    begin
      Inc(month [DayOf(Query1.FieldByName('DateComplete').Value)]);
      Table1.Next;
    end;

    for i := 1 to 31 do
     Table1.AddXY(i, month[i]);
   end;

  If MYear.Checked = True then
  begin
    Table1.Clear;

    for i := 1 to 31 do
      year[i] := 0;

    present := now;
    startOfYear := startOfAYear(YearOf(present));
    endOfYear := endOfAYear(YearOf(present));

     Table1.Text := 'Select * From QuestsArc Where ' +
      '(DateComplete >= '''+ FormatDateTime('dd/mm/yyyy',startOfYear)+''')' +  'and'+
      '(DateComplete <=  '''+ FormatDateTime('dd/mm/yyyy',endOfYear)+''')';
    Table1.Open;
    Table1.First;

    while Table1.Eof <> True do
    begin
      Inc(year [MonthOf(Table1.FieldByName('DateComplete').Value)]);
      Table1.Next;
    end;

    for i := 1 to 12 do
      Series1.AddXY(i, year[i]);
  end;
end;

}

[Stilet]

Table1.AddXY(i, month[i]);

Это что?
И вообще-то - почему не используешь DBChart? Для новичков самое оно.

[Vasiliska]

Сообщение от Stilet

Это что?
И вообще-то - почему не используешь DBChart? Для новичков самое оно.

не знаю,мне знакомый кинул,а я что та не как разобраться не могу

[Stilet]

Разобраться с DBChart?
Приложи сюда свою БД, попробую видеоурок сделать