求助:
现在有有一个目录表 有标题字段 和序号字段 起始页 结束页
因工作需要生成对应的不同文件的标题 根据规范化文件要求 一样的案件目录必须按照对应的顺序进行排目录
因为拟根据规范化要求,一键生成对应的目录
求操作技巧及代码写法
比如:
技术协助卷宗
序号 目录标题 起始页 结束页
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”。
同时求助,如何根据所赋值的标题行数,生成对应的序号数!谢谢
[此贴子已经被作者于2014-12-15 23:53:42编辑过]