реализация Combobox в Paradox...помогите

  • Автор темы Vitamin
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V

Vitamin

#1
Товарищи,подскажите пожалуйста. У меня такая проблема.Есть две таблицы,файл пример приведен.Хочу сделать так,чтобы в первой таблице третий столбец был типа combobox, значения которого из второго столбца второй таблицы.
 

Вложения

V

Vitamin

#2
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Table1: TTable;
Table2: TTable;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
DataSource2: TDataSource;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias('STANDARD1',ExtractFilePath(ParamStr(0)) + 'data\','PARADOX');
Table1.Active := True;
Table2.Active := True;
finally
ConfigMode := cmAll;
end;
end;
end;

end.


это код,для тех,кто не может скачать
 
Статус
Закрыто для дальнейших ответов.