Dim dr As DataRow = DataTables("费用总表").Find("商户名称='" & e.DataRow("商户名称") & "' And 抄表日期 < #" & ld & "#", "抄表日期 desc")