|
If e.DataCol.Name = "项目日期" OrElse e.DataCol.Name = "项目类型" Then
If e.DataRow.IsNull("项目日期") OrElse e.DataRow.IsNull("项目类型") Then
e.DataRow("项目编号") = Nothing
Else
Dim ydate As Date = new Date(e.DataRow("项目日期").year, 1, 1)
Dim max As String = e.DataTable.Compute("max(项目编号)", "项目日期 >= #" & ydate & "# and 项目日期 < #" & ydate.AddYears(1) & "# and 项目类型 = '" & e.DataRow("项目类型") & "'")
If max > "" Then
e.DataRow("项目编号") = Right(e.DataRow("项目日期").Year,2) & Format(cint(max.SubString(2,3)) + 1,"000") & e.DataRow("项目类型")
Else
e.DataRow("项目编号") = Right(e.DataRow("项目日期").Year,2) & "001" & e.DataRow("项目类型")
End If
End If
End If
|
加好友 
发短信
Post By：2015/3/10 21:08:00 [显示全部帖子]
