【搞定】点一个按钮报错**

xhsoft · 发表于 2007-11-17 16:39:08

代码如下：procedure TMainForm.ToolButton11Click(Sender: TObject);
var
  ii ,jj:string;
begin
ii := dsbrw_rz.DataSet.FieldByName('gzrw').AsString;
jj := dsbrw_xx.dataset.FieldByName('id').AsString;
dsbrw_jhw.DataSet.Append;
dsbrw_jhw.DataSet.Edit;
dsbrw_jhw.DataSet.FieldByName('gznr').AsString :=  ii;
dsbrw_jhw.DataSet.FieldByName('xxid').AsString :=  jj;
dsbrw_jhw.DataSet.ApplyUpdates;

atiger · 发表于 2007-11-19 08:29:05

楼主，你跟踪过吗?执行哪句报出来的

xhsoft · 发表于 2007-11-19 08:45:20

dsbrw_jhw.DataSet.FieldByName('gznr').AsString := ii;这一步

Akon · 发表于 2007-11-19 08:55:17

编译有问题吗?

xhsoft · 发表于 2007-11-19 08:57:38

没有问题

xhsoft · 发表于 2007-11-19 08:58:09

可否远程看一下，这个问题，昨天一天没有解决

atiger · 发表于 2007-11-19 09:10:23

从代码本身看，看不出问题，请问
1、你手工直接对dsbrw_jhw 这个数据集的'gznr' 这个字段输入值正常吗？
2、如果正常，屏蔽其他的代码就留这几行，然后再执行看看。
3、顺便再问题一下dsbrw_rz 这个数据集和 dsbrw_jhw 这个数据集是啥类型的数据集？标准数据集、决策数据集、存储过程数据集？

lixy · 发表于 2007-11-19 09:10:45

dsbrw_jhw.DataSet.FieldByName('gznr').AsString := ii 您这个字段是什么类型的数据？

atiger · 发表于 2007-11-20 08:56:19

请反馈结果，楼主，

xhsoft · 发表于 2007-11-20 09:19:10

结贴

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