把筛选条件加进来
Select Case e.DataCol.Name
Case "收入_金额","支出_金额"
Dim dr As DataRow
dim filter as string
if tables("xx表").filter > "" then
filter = " and " & tables("xx表").filter
end if
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") & filter , "[_SortKey] Desc") '找出上一行