Dim min As Date = DataTables("早餐登记").Compute("Max(用餐日期)","用餐日期 Is Not Null And 客户id = '" & e.DataRow("客户ID") & "'")
过滤都加上不是空值。