【结】[请求]表格文档中生成序号的问题.求高手解决(急!)**

guzhenpeng

现在对一个数据表做成报表显示,用表格文档,但数据表中无序号字段,但表格文档上要体现,请问高手们有解决方案或是相关的案例吗?   谢谢!

jiahaiminghr

可以在数据集上添加一个计算字段，用代码为其赋值为记录集的行号就可以了

guzhenpeng

不大具体,我也问过了,好象实现不了,建议我只能用DataGrid控件来设计序号,没办法了,希望你们的下一个版本能加上此功能,结帖吧.

alang

2楼说的就可以了
在计算字段事件上
Value := DataSet.RecNo;

atiger

楼主的意思是实现每个分组都从1开始，
方法一、用DataGrid来表现，然后分组，最后设置显示行号就可以了

方法二、用表格文档表现，就需要写代码来实现，步骤：
1、设置数据集以分组字段进行排序，
2、在数据集上增加一个临时字段，用来显示排序号，
3、循环数据集，判断下一个记录的排序字段的值跟前面一条一样，如果不一样，序号从1开始，如果一样，序号加1（代码写在哪里需要根据你的业务需求了，如果数据一次性全取，且不进行然后过滤，那么可以写在数据集的AfterOpen，如果要进行过滤，那么过滤后，还需要执行这段代码）
参考代码
var
  i,j:integer;
  lStr:String;
begin
   DataSetBroker1.DataSet.First;
   j := 1;
   DataSetBroker1.DataSet.DisableControls;
   for i:=0 to DataSetBroker1.DataSet.RecordCount-1 do
   begin
     lStr := DataSetBroker1.DataSet.FieldbyName('ID').AsString;
     DataSetBroker1.DataSet.Edit;
     DataSetBroker1.DataSet.FieldbyName('LSZD').AsInteger := j;
     DataSetBroker1.DataSet.next;
     if lStr = DataSetBroker1.DataSet.FieldbyName('ID').AsString then
        j:=j+1
     else
        j:=1;
   end;
   DataSetBroker1.DataSet.EnableControls;
end;

//其中ID是分组字段的ID，LSZD是存储序号的临时字段的ID

guzhenpeng

DataSetBroker1.DataSet改为数据集的ID就行了,搞定,多谢

guzhenpeng

大家注意一下,就是在数据集中加入代码后只保存不编译的话,表格调用时就不走代码,必需要编辑一下才行,希望以后的版本解决这样的问题,现在在X3上做东西总是这样,Ctrl+F9,操作上多了这一步.不大明白.

atiger

ok，不客气，结帖