【结帖】总是提示这个错误**

ccseasy · 发表于 2008-1-25 10:21:14

总是提示这个错误，如图

ccseasy · 发表于 2008-1-25 10:25:31

procedure TBGSDJCX_CK.ToolButton4Click(Sender: TObject);
begin
if Button1.Caption<>'1' then
Button1.Caption:=IntToStr(StrToInt(Button1.Caption)-1);
DataSetBroker2.DataSet.Params.ParamByName('SRow').AsString:=IntToStr(18*(StrToInt(Button1.Caption)-1));
DataSetBroker2.DataSet.Params.ParamByName('ERow').AsString:=IntToStr(18*(StrToInt(Button1.Caption)));
DataSetBroker2.DataSet.Close;
DataSetBroker2.DataSet.Open;
end;

jiahaiminghr · 发表于 2008-1-25 10:28:06

代码有问题，是拷贝的吧？

jiahaiminghr · 发表于 2008-1-25 10:28:54

不是指2楼啊！

ccseasy · 发表于 2008-1-25 10:31:12

是拷贝的

jiahaiminghr · 发表于 2008-1-25 10:47:03

在type的类声明部分，添加对procedure TBGSDJCX_CK.ToolButton4Click(Sender: TObject);方法的声明

ccseasy · 发表于 2008-1-25 10:57:30

如图，已经声明了，当我双机onclick时自动创建的，还要自己手写吗？

jiahaiminghr · 发表于 2008-1-25 12:33:54

吧完整的代码贴上来看看吧

ccseasy · 发表于 2008-1-25 13:53:35

procedure TBGSDJCX_CK.ToolButton4Click(Sender: TObject);
begin
if Button1.Caption<>'1' then
Button1.Caption:=IntToStr(StrToInt(Button1.Caption)-1);
DataSetBroker2.DataSet.Params.ParamByName('SRow').AsString:=IntToStr(18*(StrToInt(Button1.Caption)-1));
DataSetBroker2.DataSet.Params.ParamByName('ERow').AsString:=IntToStr(18*(StrToInt(Button1.Caption)));
DataSetBroker2.DataSet.Close;
DataSetBroker2.DataSet.Open;
end;

jiahaiminghr · 发表于 2008-1-25 14:03:59

这个单元文件的完整代码

		自动登录	找回密码
密码			立即注册

【结帖】总是提示这个错误**

ToolButton4Click下面的代码

已经声明了