1.
//我在窗体FORM1的"保存"按钮下大致是这样写的:
//实现将ADOQUERY1中的用DBEDIT1显示的(职工号)ZGH1全部存入DBGRID2每条记录中
//ZGH2字段中.
var tmp_zghstr:string;
begin
tmp_zghstr:=dbedit1.edittext; //将ADOQUERY1的职工号赋到TMP_ZGHSTR中.
dbgrid.first;
while not adoquery2.eof do //该循环实现将变量的值赋到DBGRID2中每条记录的ZGH2
begin
fieldbyname('ZGH2').value:=tmp_zghstr;
adoquery1.next; //好象这里有问题.
end;
adoquery1.post;
.....
end;
....
不能实现将当前DBGRID1的所有显示记录的职工号全部存入ADOQUERY2中只能存一条.
------------------------------------------------------
2.
//很菜的问题:将DBEDIT1值存入adoquery2表table2中的问题,不要笑我哦
//adoquery2已经是进入编辑修改状态中了
adoquery2.fieldbyname('姓名').value:='AAA';
adoquery2.post;
却不行,望能得到大家的指教。
//我在窗体FORM1的"保存"按钮下大致是这样写的:
//实现将ADOQUERY1中的用DBEDIT1显示的(职工号)ZGH1全部存入DBGRID2每条记录中
//ZGH2字段中.
var tmp_zghstr:string;
begin
tmp_zghstr:=dbedit1.edittext; //将ADOQUERY1的职工号赋到TMP_ZGHSTR中.
dbgrid.first;
while not adoquery2.eof do //该循环实现将变量的值赋到DBGRID2中每条记录的ZGH2
begin
fieldbyname('ZGH2').value:=tmp_zghstr;
adoquery1.next; //好象这里有问题.
end;
adoquery1.post;
.....
end;
....
不能实现将当前DBGRID1的所有显示记录的职工号全部存入ADOQUERY2中只能存一条.
------------------------------------------------------
2.
//很菜的问题:将DBEDIT1值存入adoquery2表table2中的问题,不要笑我哦
//adoquery2已经是进入编辑修改状态中了
adoquery2.fieldbyname('姓名').value:='AAA';
adoquery2.post;
却不行,望能得到大家的指教。
解决方案 »
- dbgrid的问题?
- dbgrid如何显示存储过程中的记录集合?
- DELPHI转到JB上?
- 在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!在线等!急!急!急!急!急!
- 我是一名大四学生,学了1年多的DELPHI,熟悉SQL SERVER 2000。
- 高兴呀!以后晚上也可以看见大家了!散分!
- 菜鸟软件上华军,竟然一下子成为华军图象捕捉类下载量排名第一。
- cg1120(代码最优化-§为这世界,添些美丽色彩§) 给我进来.
- 关于SQL SERVER2000数据恢复的问题,请大虾指点
- 请教高手!!关于table的filter属性的
- 用ADO时。。。。
- 如何在IIS中配置一个用IntraWeb控件组写的Dll文件呢?
while not adoquery2.eof do //该循环实现将变量的值赋到DBGRID2中每条记录begin
adoquery1.fieldbyname('ZGH2').asstring:=tmp_zghstr;
adoquery1.next; //好象这里有问题.
end;
adoquery1.post;
dbgrid2.datasource.dataset.first;/////////////
while not adoquery2.eof do //该循环实现将变量的值赋到DBGRID2中每条记录的ZGH2
begin
dbgrid2.datasource.dataset.fieldbyname('ZGH2').value:=tmp_zghstr;///////////
adoquery1.next; //好象这里有问题.
dbgrid2.datasource.dataset.next///////////////
end;
var tmp_zghstr:string;
begin
tmp_zghstr:=dbedit1.edittext;
dbgrid.first;
adoquery2.first;
adoquery2.edit;
while not adoquery2.eof do
begin
adoquery2.fieldbyname('ZGH2').value:=tmp_zghstr;
adoquery2.next;
end;
adoquery2.post;
.....
end;
....2、
adoquery2.fieldbyname('姓名').asstring:='AAA';
adoquery2.post;