这么写:
while not dm.dw.eof do
begin
combobox5.items.add(dm.dw.fieldbyname('dw_id').asstring
+' '+dm.dw.fieldbyname('dwmc').asstring);
dm.dw.next;
end;
while not dm.dw.eof do
begin
combobox5.items.add(dm.dw.fieldbyname('dw_id').asstring
+' '+dm.dw.fieldbyname('dwmc').asstring);
dm.dw.next;
end;
解决方案 »
- TEECHART 重画线和标注的问题,进来看图求解!
- undeclared indentifier 'MessageBox' 是什么错误
- 关于Delphi整型取值范围
- 怎样释放放在bevel上的控件
- 代码总是提示出错,请指教!
- Delphi 控制控件的换行显示。
- 这个题500分
- Delphi7.0+sqlserver2000,存放图片到数据库image字段成功了,但是从数据库中清除和更改却不好用。
- 真不明白为什么...........
- Delphi程序中有ActiveX控件,如何打包成独立程序?
- quickreport控件有没有办法把报表内容输出到word文档的?
- DBGrid中如何控制当双击title栏时只触发OnTitleClick而不触发OnDblClick
begin
combobox5.items.add(dm.dw.fieldbyname('字段名称').asstring
dm.dw.next;
end;
db.dw.first;
while not dm.dw.eof do
begin
combobox5.items.add(dm.dw.fieldbyname('字段名称').asstring;
dm.dw.next;
end;