我构造了一个DATASET如下
DS.CreateDataSet;
DS.insert;
DS.FieldByName('NO').AsString:= '01';
DS.FieldByName('TEST1').AsString:= 'TEST';
DS.FieldByName('TEST2').AsString:= 'TEST';
DS.FieldByName('TEST3').AsString:= 'TEST';
DS.FieldByName('TEST4').AsString:= 'TEST';
DS.FieldByName('TEST5').AsString:= 'TEST';
DS.Append;
DS.FieldByName('TEST1').AsString:= 'TEST';
DS.FieldByName('TEST2').AsString:= 'TEST';
DS.FieldByName('TEST3').AsString:= 'TEST';
DS.FieldByName('TEST4').AsString:= 'TEST';
DS.FieldByName('TEST5').AsString:= 'TEST';
我已经把这个DATASET绑定到一个DATASOURCE,并且把DATASOURE绑定到DBGRID了,可是只能显示一行数据,最后一行,为什么?
DS.CreateDataSet;
DS.insert;
DS.FieldByName('NO').AsString:= '01';
DS.FieldByName('TEST1').AsString:= 'TEST';
DS.FieldByName('TEST2').AsString:= 'TEST';
DS.FieldByName('TEST3').AsString:= 'TEST';
DS.FieldByName('TEST4').AsString:= 'TEST';
DS.FieldByName('TEST5').AsString:= 'TEST';
DS.Append;
DS.FieldByName('TEST1').AsString:= 'TEST';
DS.FieldByName('TEST2').AsString:= 'TEST';
DS.FieldByName('TEST3').AsString:= 'TEST';
DS.FieldByName('TEST4').AsString:= 'TEST';
DS.FieldByName('TEST5').AsString:= 'TEST';
我已经把这个DATASET绑定到一个DATASOURCE,并且把DATASOURE绑定到DBGRID了,可是只能显示一行数据,最后一行,为什么?
解决方案 »
- vc写的一个ocx控件,其中有一个集合的调用。在vb下调用正常,然后在delphi下就报如下错误。
- 打印结帐单的时候如何做到单据有多长就打印多长,我用fastreport做的结帐单,总是多走出一部分,好象是按A4的长度出纸的
- 如何用DrawDibDraw显示一个BMP文件???
- 我是个初学者,请问大家用的DELPHI都是什么版本的啊?哪个版本的最好啊?
- 如何通过TCP传输xml
- ◆◆一个多语言界面奇怪的问题: 法语、西班牙语、丹麦语等界面有乱码!做过多语言的兄弟请入!◆◆
- 大家好!!能否给小弟介绍几本Delphi 的好书?????发言就给分!!!!!!
- MaskEdit的EditMask?
- 拼音转换成汉字!!!
- 这回请一定要帮我(关于ComboBoxEx32),我很着急...
- delphi软件想实现如此加密该如果做
- 请问怎样将execl文件中的数据读入dbgrid中? 谢谢
DS.insert;
DS.FieldByName('NO').AsString:= '01';
DS.FieldByName('TEST1').AsString:= 'TEST';
DS.FieldByName('TEST2').AsString:= 'TEST';
DS.FieldByName('TEST3').AsString:= 'TEST';
DS.FieldByName('TEST4').AsString:= 'TEST';
DS.FieldByName('TEST5').AsString:= 'TEST';
ds.post; //提交
DS.Append;
DS.FieldByName('TEST1').AsString:= 'TEST';
DS.FieldByName('TEST2').AsString:= 'TEST';
DS.FieldByName('TEST3').AsString:= 'TEST';
DS.FieldByName('TEST4').AsString:= 'TEST';
DS.FieldByName('TEST5').AsString:= 'TEST';