各位高手,
请问,diglogpage里的edit的值为什么丢失?
我写的:
var
sumpro:real;
planqty:real;
cmpqty:real;
procedure Button1OnClick(Sender: TfrxComponent);
begin
{ masterdata1.rowcount:= strtoint(edit1.text);}
masterdata1.rowcount := strtoint(edit1.text) ; -- 这里系统提示(masterdata1.rowcount:not accessible) end;begin
sumpro:=<frxdbdataset1."u_sumpro">;
planqty:=<frxdbdataset1."plannedqty">;
edit2.text:=<frxdbdataset1."u_sumpro">;
cmpqty:=<frxdbdataset1."cmpltqty">;
if (sumPro <> 0) then
begin
edit1.text := floattostr( round( planqty /sumpro )) ;
end else
begin
edit1.text := '1' ;
end
end.在程序运行的时候EDIT1里是有值的,当点确定按钮后就没了.在程序段点跟踪里发现
这里系统提示(masterdata1.rowcount:not accessible) end;
这个错误.
请问,diglogpage里的edit的值为什么丢失?
我写的:
var
sumpro:real;
planqty:real;
cmpqty:real;
procedure Button1OnClick(Sender: TfrxComponent);
begin
{ masterdata1.rowcount:= strtoint(edit1.text);}
masterdata1.rowcount := strtoint(edit1.text) ; -- 这里系统提示(masterdata1.rowcount:not accessible) end;begin
sumpro:=<frxdbdataset1."u_sumpro">;
planqty:=<frxdbdataset1."plannedqty">;
edit2.text:=<frxdbdataset1."u_sumpro">;
cmpqty:=<frxdbdataset1."cmpltqty">;
if (sumPro <> 0) then
begin
edit1.text := floattostr( round( planqty /sumpro )) ;
end else
begin
edit1.text := '1' ;
end
end.在程序运行的时候EDIT1里是有值的,当点确定按钮后就没了.在程序段点跟踪里发现
这里系统提示(masterdata1.rowcount:not accessible) end;
这个错误.
解决方案 »
- cxgrid打印用dxComponentPrinter的一个问题
- Delphi Label控件的重命名和删除
- 请教一个打包程序安装时遇到的问题!
- RichTextBox控件如何动态联接MS Access数据库?
- 好久没提问了 先送上一百分!!不过....回答问题先!答对再给100分 要200也行 不是吧 你要300 要得太少了吧? 如果不满意 500也成! 嘻~~
- 一个功能全面的表格软件
- 开发中的Delphi程序员签名(明天下班后结贴)
- 如何提取dat文件里面数据
- 心情不爽,散分
- 请问调用CORBA服务器出现NO_IMPLEMENT是什么原因?
- 关于Delhi中dbgrideh保存数据的问题
- 求助:代码行数问题
我做个程序的目的是,可以让用户自由的选择打印张数.
例如:程序根据planqty(计划数量)/产品包装数量=需要打印的标签数量,而这个标签数量是可以根据需要来更改的.
目前我是想用masterdata.rowcount来控制打印页数,但EDIT里的值总是不能传给ROWCOUNT,所以想请高手们帮帮忙.谢谢!