蓝总：您好！
If
e.DataCol.Name = "日期"
Then
If
e.DataRow.IsNull("日期") Then
e.DataRow("编号") = Nothing
Else
Dim
d
As
Date = e.DataRow("日期")
Dim
y
As
Integer = d.Year
Dim
m
As
Integer = d.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
bh
As
String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
If
e.DataRow("编号").StartsWith(bh) = False
'如果编号的前6位不符
Dim
max
As
String
Dim
idx
As
Integer
max = e.DataTable.Compute("Max(编号)","日期 > = #"
&
fd
&
"# And 日期 <= #"
&
ld
&
"# And [_Identify] <> "
&
e.DataRow("_Identify")) '取得该月的最大编号
If
max > ""
Then
'如果存在最大编号
idx = CInt(max.Substring(7,3)) + 1
'获得最大编号的后三位顺序号,并加1
Else
idx = 1
'否则顺序号等于1
End
If
e.DataRow("编号") = bh
&
"-"
&
Format(idx,"000")
End
If
End
If
End
If
1、为什么我发起3条记录的编号都是一样的，202003-001？
2、Sqltable生成的表中的时间是不是不能带上datatime效果？
加好友 
发短信
Post By：2020/3/28 15:12:00 [只看该作者]
