Изменение пути к таблице .dbf

[Tanuska___:)]

Здравствуйте, помогите пожалусто у меня есть такая проблема:
1. при выборе из комбобокса месяца (за текущий год) нужно применять определенную таблицу (они находятся в каталогах с соотв названиями(1,2,..12)) ; при активации приложения работает таблица текущего месяца(с исполь. алиаса). я делаю так:

Panel1.Visible:=false;
if ComboBox2.Text='январь' then begin
  DataModule3.Table1.Active:=false;
  with Session do
  begin
    ConfigMode := cmSession;
    try
            
      AddStandardAlias('VODITXR',ExtractFilePath(ParamStr(0)) + 'C:\SVIR\01\', 'PARADOX');
      DataModule3.Table1.Active := True; 
    finally
      ConfigMode := cmAll;
    end;
  end;
end;
 GroupBox1.Caption:='  Средняя выручка по дням недели в январе ';
 end;

но данные все равно берутся за текущий месяц .
здесь я выполняю запрос при нажатии на кнопку:

begin
 DataModule3.Query1.Active:=false;
 DataModule3.Query1.SQL.Clear;
 DataModule3.Query1.SQL.Add('select s.DNED,v.FNDAT,v.FNADVI,gr.MARKA,v.FPASWN,v.FPASWV,v.FVIRWN,v.FVIRWV,v.FVALSUM,(v.FVIRWN+v.FVIRWV+k.KROS*v.FVALSUM) as IT from VODITXR v,GOSNOM g,GRUM gr,MARZAG m,sutki s,KURS k where v.FSTNAZ="'+ComboBox1.Text+'" and v.FGARN=g.GARN  and v.FNDAT=k.DAT and g.KOMAR=gr.KOMAR and m.STNAZ=v.FSTNAZ and s.DATA=v.FNDAT ');
 DataModule3.Query1.Active:=true;

   if DataModule3.Query1.RecordCount <> 0 then
    begin
  DataSource1.DataSet:=DataModule3.Query1;
  end;

Пожалусто, кто-нибудь помогите , замучилась уже...

[Stilet]

А совпадают ли у тебя типы данных в комбике и в поле с месяцами?

[Tanuska___:)]

так это же не важно я же не сравниваю а выбираю по параметру: есля январь то выбрать таблицу с таким- то путем

[Stilet]

о выбрать таблицу с таким- то путем

Где это написано?

[Tanuska___:)]

в таблице нет поля - месяц там есть дата.

в комбобоксе записаны (вручную )названия месяцев, и при выборе обрабатывается событие нажатия на кнопку. Я начинала делать в Accsess, там все работало на ура!!! но теперь пришлось перейти (по определ. обстоятельствам) на dbf-ки . и причем делфи ошибку не выдает он просто игнорирует.

[mihali4]

Сделайте проще:
Table1.Close;
Table1.DataBaseName:='C:\SVIR\01\'+ имя_файла.dbf;
Table1.Open;
и точно так же - для Query1:
Query1.DataBaseName:=Table1.DataBas eName;

[Tanuska___:)]

теперь возникает ошибка после нажатия на кнопку с выбором месяца
что не так ?

[Stilet]

Михалыч, не чуди )
В DataBaseName не таблица указывается а база.

Таня, Танечка, Танюша Выбор таблиц указывается после FROM а не после WHERE.
Тебе Селект нужно сделать типа:

'Select * from '+ComboBox.text+' Where....'

[Tanuska___:)]

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

[Stilet]

я пытаюсь програмно заменить путь алиаса к таблице VODITXR.dbf.

Да зачем???
Вообще Алиас это лишнее.
Query1.DatabaseName:=путь к папке с таблицами

Этого с головой хватает.