|
发表于 2008-4-15 14:12:09
|
显示全部楼层
我看到你发到我们邮箱的“业务模型人力资源管理系统\决策中心员工信息统计\新进员工统计功能”这个功能中的代码有问题,
while DataSetBZSJJ.Eof = false do
begin
s := sysutils.FormatDateTime('YYYY',DataSetBZSJJ.FieldByName['RZRQ'].AsDateTime) +'年' + sysutils.FormatDateTime('mm',DataSetBZSJJ.FieldByName['RZRQ'].AsDateTime) +'月';
if DataSource2.DataSet.Locate('rq',s,[]) = true then
begin
DataSource2.DataSet.Edit;
DataSource2.DataSet.FieldByName['rs'].AsInteger := DataSource2.DataSet.FieldByName['rs'].AsInteger +1;
end
else
begin
DataSource2.DataSet.Edit;
//DataSource2.DataSet.Append;
DataSource2.DataSet.FieldByName['RQ'].AsString := s;
end;
DataSetBZSJJ.Next;
end;
不管是否能找到,都是直接修改,应该找不到append,
我修改后
while DataSetBZSJJ.Eof = false do
begin
s := sysutils.FormatDateTime('YYYY',DataSetBZSJJ.FieldByName['RZRQ'].AsDateTime) +'年' + sysutils.FormatDateTime('mm',DataSetBZSJJ.FieldByName['RZRQ'].AsDateTime) +'月';
if DataSource2.DataSet.Locate('rq',s,[]) = true then
begin
DataSource2.DataSet.Edit;
DataSource2.DataSet.FieldByName['rs'].AsInteger := DataSource2.DataSet.FieldByName['rs'].AsInteger +1;
end
else
begin
//DataSource2.DataSet.Edit;
DataSource2.DataSet.Append;
DataSource2.DataSet.FieldByName['RQ'].AsString := s;
end;
DataSetBZSJJ.Next;
end;
运行的效果图见附件
|
|