Foxtable(狐表)用户栏目专家坐堂 → 我哪里的问题呢?


  共有2827人关注过本帖树形打印复制链接

主题:我哪里的问题呢?

帅哥哟,离线,有人找我吗?
ykhsen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:8 积分:150 威望:0 精华:0 注册:2013/5/7 10:05:00
我哪里的问题呢?  发帖心情 Post By:2015/8/2 17:31:00 [只看该作者]

Dim fls As New List(of String)
fls = DataTables("表C").GetValues("第一列")
Dim r As Integer = 0
Dim fl0 As Integer = 1
For Each fl As String In fls
    Dim fs() As String = fl.Split("/")
    Dim c As Integer = 1
    Dim fl1 As Integer = 1
    Dim fl2 As Integer = 1
    For Each f As String In fs
        Tables("表C").Rows(r)(c + 1) = f
        If r = 0 Then
            Tables("表C").Rows(r)(c) = "01"
        Else
            Select Case c
                Case 1
                    If Tables("表C").Rows(r - 1)(c + 1) <> f Then
                        fl0 = fl0 + 1
                        fl1 = 1
                        fl2 = 1
                    End If
                    Tables("表C").Rows(r)(c) = Format(fl0,"00")
                Case 3
                    If Tables("表C").Rows(r - 1)(c + 1) <> f Then
                        fl1= fl1 + 1
                        fl2 = 1
                    End If
                    Tables("表C").Rows(r)(c) =  Format(fl1,"00")
                Case 5
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:fl.rar

                    If Tables("表C").Rows(r - 1)(c + 1) <> f Then
                        fl2 = fl2 + 1
                    End If
                    Tables("表C").Rows(r)(c) = Format(fl2,"00")
            End Select
        End If
        c = c + 2
    Next
    r = r + 1
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/2 20:00:00 [只看该作者]

如果想要大家帮忙,请描述清楚你想要的问题

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/2 20:18:00 [只看该作者]

For Each r As Row In Tables("表C").Rows
    Dim ary() As String = r("第一列").split("/")
    For i As Integer = 0 To ary.length-1
        r(Tables("表C").Cols(i*2+1)) = format(i+1,"00")
        r(Tables("表C").Cols(i*2+2)) = ary(i)
    Next
Next

 回到顶部