这样试试
max = e.DataTable.Compute("Max(凭证号)","制单日期 = #" & Format(e.DataRow("制单日期"), "yyyy-MM-dd") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号