专家坐堂-如何删除表A中纯数字的行？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何删除表A中纯数字的行？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70374)

--  作者：wh420
--  发布时间：2015/6/19 17:44:00
--  如何删除表A中纯数字的行？

For Each dr As DataRow In DataTables("表A").DataRows
If IsNumeric(dr("列名")) Then

End If
Next

--  作者：Bin
--  发布时间：2015/6/19 17:47:00
--

For i As Integer = DataTables("表A").DataRows.count To 0 Step -1
If IsNumeric(DataTables("表A").DataRows(i)("列名")) Then
DataTables("表A").DataRows(i).Delete
End If
Next

--  作者：wh420
--  发布时间：2015/6/19 17:52:00
--

表A数据：
2323adas
2323
adfa2323
23423
233223

执行时报错，索引超出了数组界限。

--  作者：Bin
--  发布时间：2015/6/19 17:53:00
--

For i As Integer = DataTables("表A").DataRows.count-1 To 0 Step -1
If IsNumeric(DataTables("表A").DataRows(i)("列名")) Then
DataTables("表A").DataRows(i).Delete
End If
Next

--  作者：wh420
--  发布时间：2015/6/19 17:57:00
--
问题解决，多谢老师