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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何提取存数字的行

共有2445人关注过本帖树形打印复制链接主题：如何提取存数字的行

wh420

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

如何提取存数字的行 发帖心情

Post By：2015/6/17 16:55:00 [只看该作者]

表A中有以下若干行内容：

ABC 123

123 BCD

67281

3948721

39482.203

394927.00

493872

中中123

123中国

如何提取纯数字的行？即：不包括字母或中文，必须为存数字的行

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/6/17 17:04:00 [只看该作者]

治好一行行判断了

For Each dr As DataRow In DataTables("X").DataRows

If IsNumeric(dr("列名")) Then

End If

wh420

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2015/6/17 17:10:00 [只看该作者]

嗯，这已经不错了，多谢老师。

wh420

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2015/6/17 17:21:00 [只看该作者]

追问一下，如果用正则表达式如何实现？

Bin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/6/17 17:23:00 [只看该作者]

^\d+$

wh420

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1107 积分：10586 威望：0 精华：0 注册：2014/2/19 16:32:00

Post By：2015/6/19 17:17:00 [只看该作者]

For Each dr As DataRow In DataTables("表A").DataRows

If IsNumeric(dr("列名")) Then

End If

如何删除表A中所有纯数字的行？

[此贴子已经被作者于2015/6/19 17:36:37编辑过]

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/19 18:12:00 [只看该作者]

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

下一主题 >> << 上一主题

主题：如何提取存数字的行