S
SPARKSKY
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm5.DBGrid1CellClick(Column: TColumn);
begin
//实现数据与显示控件绑定..
if adoquery1.RecordCount>0 then
begin
edit1.Text:=adoquery1.fieldbyname('工人ID号').AsString;
//combobox3.ItemIndex:=adoquery1.fieldbyname('车间代号').AsInteger;
//combobox4.ItemIndex:=adoquery1.fieldbyname('工厂代号').AsInteger;
edit4.Text:=adoquery1.fieldbyname('姓名').AsString;
//combobox1.ItemIndex:=adoquery1.fieldbyname('性别').AsInteger;
// combobox2.ItemIndex:=adoquery1.fieldbyname('工种').AsInteger;
edit6.Text:=adoquery1.fieldbyname('年龄').AsString;
edit8.Text:=adoquery1.fieldbyname('月工资').AsString;
end;
end;
为什么COMBOBOX列表里不能显示DBGRID里的内容,有的只能显示一个,点别外一行他不会变,,不能显示被我屏蔽了...,知道的能否告诉一下...
begin
//实现数据与显示控件绑定..
if adoquery1.RecordCount>0 then
begin
edit1.Text:=adoquery1.fieldbyname('工人ID号').AsString;
//combobox3.ItemIndex:=adoquery1.fieldbyname('车间代号').AsInteger;
//combobox4.ItemIndex:=adoquery1.fieldbyname('工厂代号').AsInteger;
edit4.Text:=adoquery1.fieldbyname('姓名').AsString;
//combobox1.ItemIndex:=adoquery1.fieldbyname('性别').AsInteger;
// combobox2.ItemIndex:=adoquery1.fieldbyname('工种').AsInteger;
edit6.Text:=adoquery1.fieldbyname('年龄').AsString;
edit8.Text:=adoquery1.fieldbyname('月工资').AsString;
end;
end;
为什么COMBOBOX列表里不能显示DBGRID里的内容,有的只能显示一个,点别外一行他不会变,,不能显示被我屏蔽了...,知道的能否告诉一下...