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

估计6楼的老弟用了当前行的日期了，这样改一下：

If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("日期") Then
    e.DataRow("编号") = Nothing
Else
    Dim rq As Date = e.DataRow("日期")
    Dim y As Integer = rq.Year
    Dim m As Integer = rq.Month
    Dim Days As Integer = Date.DaysInMonth(y,m)
    Dim fd As Date = New Date(y,m,1)
    Dim ld As Date = New Date(y,m,Days)
    Dim n As Integer
    Dim drs As List(of DataRow) = e.DataTable.Select("日期 >= #" & fd & "# And 日期 <= #" & ld & "#")
    For Each dr As DataRow In drs  'i As Integer = 0 To drs.Count - 1
        Dim rq1 As Date = dr("日期")
        dr("编号")  = "AA" & right(rq1.year,2) & format(rq1.month,"00") & format(rq1.day,"00") & format(n+1,"000")
        n = n + 1
    Next
End If
End If

是这样的，有何不妥吗？

如果你想已有的编号不变，可以另加限制条件的。

以下是引用明丰在2011-6-6 12:47:00的发言：

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

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

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

 

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

[此贴子已经被作者于2011-6-6 12:56:24编辑过]

把：

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

第三列是上面代码的结果：

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

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

这个可能通用些： Format(e.NewValue,"yyMMdd")  【不知win7 是否可以？】 要不你的e.DataRow("编号") ="AA" & CStr(e.NewValue).Remove(0,2).Remove(2,1).Remove(4,1) 在xp系统中就得不出正确的结果啦。。。。。

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

我这是xp系统，不能正确执行e.DataRow("编号") ="AA" & CStr(e.NewValue).Remove(0,2).Remove(2,1).Remove(4,1) ， 是要设置什么吗？

既然format可行，就不改其他的了，还是通用些的更实用。

完善什么？详细些嘛，每人思考的角度不同的。 如果要保留原编号不变，看看17楼啊。。。