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

编号规则：AA+年月日+顺序号

不同“日”，顺序号从001开始，如下图第三列

也就是上面的代码是按“月”+ 顺序号，如果按“日”+ 顺序号，请问如何设置？

 

此主题相关图片如下：编号.jpg

编号也是一种属性和标识,应该是不能变的.麻烦补充一下限制条件

把：

Dim drs As List(of DataRow) = DataTables("表A").Select("日期 >= #" & fd & "# And 日期 <= #" & ld & "# ) 

改为：

Dim drs As List(of DataRow) = DataTables("表A").Select("日期 >= #" & _
fd & "# And 日期 <= #" & ld & "# And 日期 = #" & rq & "# ") 

加个

if dr.isnull("编号") then

    ..... 最大编号+1

end if

惭愧，还不会加。

这样吧，大同小异的

 

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

我这里测试可都正常

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

呵呵，是e.DataRow("编号") ="AA" & CStr(e.NewValue).Remove(0,2).Remove(2,1).Remove(4,1)引起的，你可能是win7 ？

另外，没有And 日期 = #" & d & "# 你不可能得出你的结果来

 

 

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