【结贴】数据唯一性约束问题**

rzport_gongyu · 发表于 2008-5-14 15:39:05

我现在是2个流程发文和收文。

收文的时候一部分的内容是来自发文的，然后我走收文的流程，文书填写上“ 收文编号”等内容之后给办公室拟办写意见，意见写完这后再返回给文书，文书在选择给 “领导传阅”

图一是反回来的

但到了领导写意见的时候就提示唯一性错误，怎么回事？

rzport_gongyu · 发表于 2008-5-14 15:42:24

这是图2 出的错误

lixy · 发表于 2008-5-14 15:45:59

检查一下数据集上设的唯一性约束。

lixy · 发表于 2008-5-14 15:50:52

那个错误提示的字段组合已经存在了一个相同的记录

rzport_gongyu · 发表于 2008-5-14 16:20:53

数据集上没有约束亚  我又把所有数据都删了还是出错

我在拟办窗体上有一个onshow事件你看看是不是有影响？
procedure TMainForm.BizFormShow(Sender: TObject);
var
lContextCurrent: Business.Model.TContextCurrent;
begin
DataSetBroker1.DataSet.Append;
StoredProc1.Params.ParamByName('v_bh').AsString:=DataSetBroker1.DataSet.FieldByName('bh').AsString;
StoredProc1.Params.ParamByName('v_lb').AsInteger:=1;
StoredProc1.Params.ParamByName('v_dflb').AsString:='01';
StoredProc1.Execute;
DataSetBroker1.DataSet.FieldByName('lb').AsInteger := 1;
DataSetBroker1.DataSet.FieldByName('xh').AsInteger:=StoredProc1.Params.ParamByName('v_xh').AsInteger;
DataSetBroker1.DataSet.FieldByName('dflb').AsString := '01';
DataSetBroker1.DataSet.FieldByName('czz').AsString := DataSetBroker2.DataSet.FieldByName('ws').AsString;

lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);

   DataSetBroker2.DataSet.Edit;
   DataSetBroker2.DataSet.FieldByName('nb').AsString := lContextCurrent.Operator.DisplayName;          //当前操作者
   DataSetBroker2.DataSet.Post;

end;

rzport_gongyu · 发表于 2008-5-14 16:22:03

这4个在表中都是主键且必须

lixy · 发表于 2008-5-14 16:27:44

代码看不出，楼主需要调试一下。
也可以在上面放一个datagrid，看看保存的时候，数据表里都有什么数据。

rzport_gongyu · 发表于 2008-5-16 07:59:43

这4个字段都是主键后面的程序有多个DataSetBroker1.DataSet.Append;
所以不断对同一数据进行付值就出现错误了我后来通过把答复类别也设为关键字就好了

rzport_gongyu · 发表于 2008-5-16 08:00:14

结一下帖

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