求助：

现在有有一个目录表  有标题字段 和序号字段  起始页 结束页

因工作需要生成对应的不同文件的标题 根据规范化文件要求 一样的案件目录必须按照对应的顺序进行排目录

因为拟根据规范化要求，一键生成对应的目录

求操作技巧及代码写法

比如：

技术协助卷宗

序号  目录标题    起始页  结束页

 1    通知单          1        2

2     同录单          3        4

3     同录情况说明   5       6

审查起诉卷

 序号  目录标题      起始页  结束页

1       案件受理登记表

2       公安文书

3       起诉意见书

4       审查报告

5       起诉书

怎么生成如上两个文件的目录  求解

采用如下代码 能够实现标题自动赋值 ，但是报错，求纠正，

Dim vals() As String = { "案件受理登记表","公安文书","起诉意见书","审查报告","起诉书"}
Dim r As Row = Tables("卷宗封面.卷内目录").AddNew()
For i As Integer =0 To vals.Length - 1 
    r("标题") = vals(i) 
Next

SystemReady = False
r("起始页") = Tables("卷宗封面.卷内目录").Compute("max(结束页)", "案卷编号 = \'" & r("案卷编号") & "\'") + 1
r("案卷编号").RaiseDataColChanged(r)
SystemReady = True

运行后错误提示为：

 未找到类型“String”的公共成员“RaiseDataColChanged”。

同时求助，如何根据所赋值的标题行数，生成对应的序号数！谢谢

r("案卷编号").RaiseDataColChanged(r)

改成

DataTables("卷内目录").DataCols("案卷编号").RaiseDataColChanged(r)

e.DataRow("第一列") = Tables("表A").FindRow(e.DataRow) + 1

问题搞定 代码放在表事件中解决啦  谢谢！

问题搞定 代码放在表事件中解决啦  谢谢！

With CurrentTable
    .Current.Move(.Position - 1)
End With

有点甜老师 这个是但前行向上移动一行  请问有没有办法在当前行插入一行呢？

 回复6楼

http://www.foxtable.com/help/topics/1981.htm

在当前位置插入一行，并返回所插入的行。

示例