【结】如何用DataChart来显示自定义数据集查询的结果**

atiger

我看到你发到我们邮箱的“业务模型人力资源管理系统\决策中心员工信息统计\新进员工统计功能”这个功能中的代码有问题，
     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;

运行的效果图见附件

songyun

修改了。
可是当把开始时间选2007-10-15，结束时间选2008-4-15的时候，就会看到DataChart还是只显示两条记录，正确应该是3条。

atiger

我远程连接上去看看吧，不应该这样的，QQ：630681071，你主动加我，然后呼我，

songyun

补充说明下，每次运行功能窗体第一次总是能正确的显示结果，DataChart和DataGrid都一致。可是继续查询，修改时间范围以后，显示的结果就不一致了。特别是跨年查询，比如2007年末到2008年年初。

atiger

哦，稍等，我再测试一下。

atiger

需要清空一下DataChart的数据源，参考代码如下：
   DataChart1.Series[0].DataSource := nil;
    DataChart1.Series[0].DataSource := DataSource2;

songyun

太感谢了，辛苦了，谢谢。
哈哈，结吧。

atiger

ok，不客气