主题：求助：如何一键生成对应行数表记录

求助：

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

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

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

求操作技巧及代码写法

 

比如：

技术协助卷宗

 

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

 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”。

 

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

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

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

 

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

 

 

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

再次感谢有点甜老师  谢谢

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

示例

Dim r As Row = Tables("表A").InsertNew()
r("日期") = Date.Today()

 

 

这个是向上插入 有没有办法向下插入呢？有点甜老师

现在是实现了向下增加一行 但是原来的序号出现了如下

1

2

3

4

6

5

 

也就是最后一个增加的 但是序号却往上调了一行

 

下面是表中序号增加的代码

Dim drs As List(Of DataRow) = e.DataTable.Select("案卷编号 = '" & e.OldValue & "'", "_sortkey")
    For i As Integer = 0 To drs.count - 1       
        drs(i)("序号") = i + 1
    Next
    drs = e.DataTable.Select("案卷编号 = '" & e.NewValue & "'", "_sortkey")
    For i As Integer = 0 To drs.count - 1       
        drs(i)("序号") = i + 1
    Next

 

求纠正  在当前行后面新增一行后，序号是最后一个 而不要跳级

 

 

r.Move(r.Index+1) 是不是这导致的 移动？

有点甜老师 例子就是刚刚你帮忙解决的那卷宗管理项目的例子

 

新增一个按钮

写上楼上代码

运行即可查看到效果

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:卷宗规范化管理系统.foxdb

再次麻烦有点甜老师 谢谢

有点甜老师  新问题又出现了