订单表初始加载为空 ,在过滤/排序 设置了 [_Identify] Is Null
在表属性DataRowAdding加入代码
Dim d As Date = Date.Today
Dim bh As String
Dim max As String
If d.Month >= 7 And d.Month <=12 Then
bh = d.Year & "09"
Else If d.Month < 7 Then
bh= d.Year & "02"
End If
max = e.DataTable.Compute("Max(订单编号)","订单编号 Like '" & bh & "%'")
If max = "" Then
e.DataRow("订单编号") = bh & "001"
Else
Dim v As Integer = max.SubString(6,3)
e.DataRow("订单编号") = bh & format(v +1,"000")
End If
max = 代码怎样改?谢谢!
[此贴子已经被作者于2016/3/11 8:34:25编辑过]