我构造了一个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('NO').AsString:= '02';
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('NO').AsString:= '02';
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了,可是只能显示一行数据,最后一行,为什么?
解决方案 »
- 如何判断文本编码?
- 有没有在山东威海的朋友,女朋友要到山东威海三角集团不知道怎么样了?我要去那没办法一年的delphi经验在那能搞到关于delphi方面工作吗?
- 请问如何解决Unit TeeProcs was compiled with a different version of System.RTLversion 这样的问题
- 菜鸟请教利用query控件如何实现数据库记录的删除和修改?
- 如何让一个函数在执行超过一段时间后就返回?
- 如何显示指针变量中的多个数据呢?
- 求有关矢量图的资料!
- 怎样用DELPHI实现,只删除指定文件夹内的文件,而不把文件夹一起删除?
- 关于时间在数据库里面的运用问题??
- paradox数据库日期字段如何取week值?请教!谢谢
- 求救!
- ★ ★ ★ 软件产品(Delphi解释器)市场调查(请求版主勿删) ★ ★ ★
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('NO').AsString:= '02';
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.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('NO').AsString:= '02';
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.Post