max = e.DataTable.Compute("Max(piao号)","报销日期 >= #" & fd & "# And 报销日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
改为max = e.DataTable.Compute("Max(piao号)","报销日期 >= #" & fd & "# And 报销日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify") & “ and 公司 = ‘“ & e.DataRow("公司") & “‘”) '取得该月的最大编号
试试,如果不行的话,上传实例来调试一下。