Table的find、findrow无法获取最大值,必须用DataTable的find才能下,如
With CurrentTable Dim fdr As DataRow = .DataTable.Find("", "编号 desc") '从第一行开始查找 Dim r As Integer = .FindRow(fdr) If r >= 0 Then '如果找到的话 .Position = r '定位到找到的行. Else msgbox("没找到") End IfEnd With