主题：甜甜,你好, 自动编号问题

Select e.DataCol.Name
    Case "编号"
        If e.DataRow.IsNull("编号") Then
            e.DataRow("次数") = Nothing
        Else
            Dim bh As String = e.DataRow("编号")
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(次数)","编号 = '" & bh & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max) + 1 '加1
            Else
                idx = 1'否则顺序号等于空
            End If
            e.DataRow("次数") = Format(idx,"000")
        End If
End Select

For Each fdr As DataRow In DataTables("客户数据").Select("固定时间 = '" & e.DataRow("星期") & "'", "固定排序,时间")
    '从客户数据里面加载数据到主表里面
   
    If i = 0 Then
        dr = e.DataRow
    Else
        dr = e.DataTable.AddNew
    End If
    dr("日期") = e.DataRow("日期")
    dr("编号") = fdr("编号")
    dr("支付方式") = fdr("支付方式")
   
    If dr.IsNull("编号") Then
        dr("次数") = Nothing
    Else
        Dim bh As String = dr("编号")
        Dim max As String
        Dim idx As Integer
        max = e.DataTable.Compute("Max(次数)","编号 = '" & bh & "' And [_Identify] <> " & dr("_Identify")) '取得该类别的最大编号
        If max > "" Then '如果存在最大编号
            idx = CInt(max) + 1 '加1
        Else
            idx = 1'否则顺序号等于空
        End If
        dr("次数") = Format(idx,"000")
    End If
   
    i += 1
Next

你需要加一个辅助列【人工修改】，如果手动修改，就勾选一下，然后查找数据，排除手动修改的列

 

max = e.DataTable.Compute("Max(次数)","(人工修改 = false or 人工修改 is null) and 编号 = '" & bh & "' And [_Identify] <> " & dr("_Identify")) '取得该类别的最大编号

如果你要计算次数，可以改成这样

 

max = e.DataTable.Compute("count(次数)","编号 = '" & bh & "' And [_Identify] <> " & dr("_Identify")) '取得该类别的最大编号

不明白你说的意思，请上传实例说明。说明操作哪一行数据，然后需要得到什么效果。

Select e.DataCol.Name
    Case "编号"
        If e.DataRow.IsNull("编号") Then
            e.DataRow("次数") = Nothing
        Else
            Dim bh As String = e.DataRow("编号")
           
            Dim dr As DataRow = e.DataTable.find("编号 = '" & bh & "' and _Identify < " & e.DataRow("_Identify"), "_Identify desc")
            If dr IsNot Nothing Then
                e.DataRow("次数") = dr("次数") + 1
            Else
                e.DataRow("次数") = 1
            End If
           
           
        End If
       
    Case "次数"
        If e.DataRow.IsNull("编号") Then
            e.DataRow("次数") = Nothing
        Else
            Dim bh As String = e.DataRow("编号")
           
            Dim pdr As DataRow = Nothing
            For Each dr As DataRow In e.DataTable.Select("编号 = '" & bh & "' and _Identify >= " & e.DataRow("_Identify"), "_Identify")
                If pdr IsNot Nothing Then
                    dr("次数") = pdr("次数") + 1
                End If
                pdr = dr
            Next
        End If
End Select

实例发上来测试。

 

单独做一个可以测试的实例发上来测试即可。

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

点击浏览该文件:管理项目2.table

测试没问题，请认真测试。