Dim dr As DataRow = DataTables("缴费管理_缴费充值").Find("","流水号 Desc")Dim wz As Integer = Tables("缴费管理_缴费充值").FindRow(dr)If wz >=0 Then Tables("缴费管理_缴费充值").Position = wzEnd If
参考:
http://www.foxtable.com/help/topics/0553.htm