ADOCommand1.CommandText := 'select lt_id, lt_type from lt_chat_type';
ADODataSet1.Recordset := ADOCommand1.Execute;
while not ADODataSet1.Recordset.EOF do
begin
pF.CNAME := ADODataSet1.FieldByName( 'lt_id' ).AsString;
pF.EName := ADODataSet1.FieldByName( 'lt_type' ).AsString;
RoomType.Items.AddObject(pF.EName,TObject(pF));
ADODataSet1.Recordset.MoveNext;
end;数据库表里有三个不同值,为什么我输出的都是同一个值?
ADODataSet1.Recordset := ADOCommand1.Execute;
while not ADODataSet1.Recordset.EOF do
begin
pF.CNAME := ADODataSet1.FieldByName( 'lt_id' ).AsString;
pF.EName := ADODataSet1.FieldByName( 'lt_type' ).AsString;
RoomType.Items.AddObject(pF.EName,TObject(pF));
ADODataSet1.Recordset.MoveNext;
end;数据库表里有三个不同值,为什么我输出的都是同一个值?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货