datarowadding事件,写代码
Dim max = e.DataTable.Compute("max(编号)", "编号 like '%" & Date.Today.year & "%'")Dim idx As Integer = 1If max > "" Then idx = val(max.Substring(10, 3)) + 1End Ife.DataRow("编号") = "天平渝投【" & Date.Today.year & "】" & Format(idx, "000") & "号"