Dim ss As Table = Tables("单据资料")For i As Integer = 0 To ss.Rows.count-1 If ss.Rows(i)("日期") <> ss.Rows(i-1)("日期") Then
这句“If ss.Rows(i)("日期") <> ss.Rows(i-1)("日期") Then”日期比较出错了,不要怎样改才行