改成
max = e.DataTable.Compute("Max(帐单编号)","len(帐单编号) >= 13 and 开航日期 >= #" & fd & "# And 开航日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大帐单编号