max =e.DataTable.Compute("Max(单号)","公司名称 = #" & e.DataRow("公司名称") & "#") '取得该天的最大编号
改成
max =e.DataTable.Compute("Max(单号)","公司名称 = '" & e.DataRow("公司名称") & "'") '取得该天的最大编号