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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除空值

共有8646人关注过本帖树形打印复制链接主题：删除空值

lpxjw_zyl

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

加好友

发短信

等级：小狐帖子：376 积分：4189 威望：0 精华：0 注册：2008/9/1 14:18:00

删除空值

Post By：2012/9/1 20:34:00 [只看该作者]

Dim bgz As String = e.Form.Controls("TextBox25").text
Dim bgjh As New List(Of String)
bgjh.AddRange(bgz.replace(chr(13),"").split(chr(10)))

lpxjw_zyl

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

加好友

发短信

等级：小狐帖子：376 积分：4189 威望：0 精华：0 注册：2008/9/1 14:18:00

Post By：2012/9/1 20:39:00 [只看该作者]

Dim bgz As String = "asdasd|sadsa|123|||124134"
Dim bgjh As New List(Of String)
Dim xhs,xhs1 As String
bgjh.AddRange(bgz.Split(chr(10)&chr(13)))
For Each xhs In bgjh
    Dim zljh As New List(Of String)
    zljh.AddRange(xhs.Split("|"))
    For i As Integer = 1 To zljh.Count
        If xhs1 = "" Then
            zljh.Remove("")
        End If
    Next
    MessageBox.Show(xhs)
    For Each xhs1 In zljh
        MessageBox.Show(xhs1)
    Next
Next

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

主题：删除空值