改成
max = e.DataTable.Compute("Max(流水号)","下单时间>= #" & fd & "# And 下单时间 < #" & ld.adddays(1) & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号