主题：我哪里的问题呢？

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