max = e.DataTable.Compute("Max(danhao)","time = #" & e.DataRow("time") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大danhao
改成
max = e.DataTable.Compute("Max(danhao)","danhao like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大danhao