ComboBox

[vovk]

если в тот момент, когда вы выполняете эти действия, в датасете привязанном к DBGrid (у вас это Table1) уже есть данные, то они должны попасть и в комбобокс.

[Yusha]

я код на комбобоксе писал правельно?

[Yusha]

и у меня етот комбобокс на другой форме ето меняет дело?

[vovk]

Давайте так
1) это не Чат, не надо писать новое сообщение, если ваше последнее, просто правьте его.
2) Возможно и меняет, я же не знаю как и когда у вас все это происходит, и какие действия сопутствуют открытию второй формы.

[Karych]

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

и у меня етот комбобокс на другой форме ето меняет дело?

Ну ты же указываешь в какой комбобокс и на какой форме записывать,
тоже самое с дбгрид про расположение!

[Yusha]

другая форма открывается с помощу команды "Form4.show;" а на комбобоксе написанкод который вы мне дали
(да указываю форму дбгрида)
а комбобокса наверно не нада он же на етой форме

[vovk]

Понимаете, происходит какое то событие, а в этом событии мы пишем действия которые должны происходить при возникновении этого события.
В в общем перед
Form4.show
поставьте тот код.

[Yusha]

нет и так ничего не выходит

[vovk]

Будьте добры покажите содержимое пас файлов 1 и 2 формы

[Yusha]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg, StdCtrls,
Menus, XPMan, DBTables;

type
TForm1 = class(TForm)
Button1: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
XPManifest1: TXPManifest;
Button2: TButton;
DataSource1: TDataSource;
DataSource2: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
Table1: TTable;
Table2: TTable;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit5, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Table2.Insert;
Form2.show;

end;

procedure TForm1.N5Click(Sender: TObject);
begin
Form3.show
end;

procedure TForm1.N2Click(Sender: TObject);
begin
Form2.show
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Insert;
Form5.show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.show;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin

Form4.show;

end;

end.

------------------------------------------------

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, XPMan;

type
TForm4 = class(TForm)
XPManifest1: TXPManifest;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label4: TLabel;
Label5: TLabel;
Edit7: TEdit;
Label6: TLabel;
Label7: TLabel;
Button1: TButton;
Label8: TLabel;
ComboBox1: TComboBox;
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;
e:integer;
implementation

uses Unit1;

{$R *.dfm}



procedure TForm4.ComboBox1Change(Sender: TObject);
begin
combobox1.clear;
form1.Dbgrid1.datasource.dataset.fi rst;
while not form1.Dbgrid1.datasource.dataset.Eo f do
begin
combobox1.Items.Add(form1.Dbgrid1.d atasource.dataset.FieldByName('ПОСА ДА').AsString);
form1.Dbgrid1.datasource.dataset.ne xt;
end;
end;

end.
вот так вот!?
если у тебя есть время и желание мне помоч то можна связаться в скайп или тимвивер и сам увидеш всё своими глазами