5,388
社区成员
发帖
与我相关
我的任务
分享请大家帮忙看一下下面关于COMBoBoxEx.data使用的代码怎么回事？
procedure TArchives_frm.FormShow(Sender: TObject);
var
str,str1 : string ;
NewItem : TComBoExItem;
begin
CoBmMc.ItemsEx.Clear ;
with Data_frm.ArcDataQuBm do
begin
Sql.Clear ;
Sql.Add('Select BM_Id,BM_MC from BM');
open;
if isEmpty = false then //如果有数据
begin
First;
While not Eof do
begin
NewItem := co1.ItemsEx.add;
NewItem.caption := FieldByName('Bm_MC').AsString ;
NewItem.Data := Pchar(FieldByName('bm_Id').AsString );
showmessage(Pchar(NewItem.data)); //运行到这里显示值是正确的
Next ;
end;
showmessage(Pchar(Co1.ItemsEx[0].data)); //这里显示的值完全不对,与上面相差很大
end;
end；
end;
var
str,str1 : string ;
NewItem : TComBoExItem;
begin
CoBmMc.ItemsEx.Clear ;
with Data_frm.ArcDataQuBm do
begin
Sql.Clear ;
Sql.Add('Select BM_Id,BM_MC from BM');
open;
if isEmpty = false then //如果有数据
begin
First;
While not Eof do
begin
NewItem := co1.ItemsEx.add;
NewItem.caption := FieldByName('Bm_MC').AsString ;
NewItem.Data := Pchar(FieldByName('bm_Id').AsString );
showmessage(Pchar(NewItem.data)); //运行到这里显示值是正确的
Next ;
end;
showmessage(Pchar(Co1.ItemsEx[0].data)); //这里显示的值完全不对,与上面相差很大
end;
end；
end;
...全文
请发表友善的回复…
发表回复
