主题：求编号的自动生成代码

这样吧，大同小异的

 

Dim d As Date = e.DataRow("日期")
Dim StartDate As Date
Dim EndDate As Date
Dim Month As Integer  = d.Month
Dim Year As Integer = d.Year
StartDate = New Date(Year,Month,1)
EndDate = New Date(Year,Month,Date.DaysInMonth(Year,Month))
If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        If e.NewValue <> Nothing And e.DataRow("编号") = Nothing Then
            e.DataRow("编号") ="AA" & CStr(e.NewValue).Remove(0,2).Remove(2,1).Remove(4,1)
            Dim drs As List(of DataRow) = e.DataTable.Select("日期 >= #" & StartDate & "# And 日期 <= #" & EndDate & "# And 日期 = #" & d & "#")
            For i As Integer = 0 To drs.Count - 1
                If drs(i)("编号").Length = 8 Then
                    drs(i)("编号")  = e.DataRow("编号") & format(i+1,"000")
                End If
            Next
        End If
    End If
End If

 

个人倾向于将红字部分去掉，这样即能将一月的编号连续，又能区分不同日期。

我这里测试可都正常

此主题相关图片如下：捕获.jpg

猜对了，现在win7都普及了呀

没有And 日期 = #" & d & "# 的结果

此主题相关图片如下：捕获.jpg

 Format(e.NewValue,"yyMMdd") 在win7 上也可以，类似e.DataRow("编号") ="AA" & CStr(e.NewValue).Remove(0,2).Remove(2,1).Remove(4,1)的方式，我在几个在用系统中都有应用，而几个在用系统的运行平台大多是xp系统

不应该出现这样的情况，或许是系统日期格式问题，我的系统短日期格式 yyyy-MM-dd

请检查一下系统短日期格式 yyyy-MM-dd

我笔记本上的虚拟机是xp系统，测试了下，显示正常

这种情况应该是正常的，因为它是按行号顺序进行编号的，如果要保留原编号不变，中间的数据行就不能允许删除，否则，就要出现你上面的情况。理解编码是关键，不能只知其然，不知其所以然。

要达到"实话实说”的编号要求，我也实话实说，还真有点费劲，参考了狐狸他爹的流水账编码（狐狸他爹的高效率流水账那可真叫一个绝），勉强完成，经测试，符合“实话实说”的要求

 

Dim d As Date = e.DataRow("日期")
Dim StartDate As Date
Dim EndDate As Date
Dim Month As Integer  = d.Month
Dim Year As Integer = d.Year
StartDate = New Date(Year,Month,1)
EndDate = New Date(Year,Month,Date.DaysInMonth(Year,Month))
If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        If e.NewValue <> Nothing And e.DataRow("编号") = Nothing Then
            'e.DataRow("编号") ="AA" & format(e.NewValue,"yyMMdd")    '可替换
            e.DataRow("编号") ="AA" & CStr(e.NewValue).Remove(0,2).Remove(2,1).Remove(4,1)
            Dim dr As DataRow
            Dim mr As DataRow = e.DataRow
            Dim drs As List(of DataRow)
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & "  And [日期] = #" & d & "#", "[_SortKey] Desc")
            If dr Is Nothing Then
                mr("编号") = mr("编号") & format(1,"000")
                dr = mr
            End If
            drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [日期] = '" & d & "'", "[_SortKey]")
            For i As Integer = 1 To drs.Count - 1
                drs(i)("编号") ="AA" & drs(i-1)("编号").SubString(drs(i-1)("编号").Length - 9) + 1
            Next
        End If
    End If
End If

 

说明：如果要求编号确立后不允许修改的，将[_SortKey] 替换为[_Identify]