Dim dr As DataRow With DataTables("缴费单") dr = .Find("用户名 = '张三'","缴费日期 Desc") '找出张三最后一次缴费的记录 End With