主题：怎样遍历下面这个东东？

此主题相关图片如下：qq图片20150608165953.png

 

此主题相关图片如下：qq图片20150608170004.png

怎样遍历下面这个东东？

 

Dim sts As String
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    If sheet(0,0).text <> "试卷号" And sheet(0,1).text <> "试卷名称" Then
        MessageBox.Show("您的数据源不符合国家开放大学报表平台的数据格式,不能导入学生信息表数据!", "提示")
    Else
        For i As Integer = 1 To sheet.Rows.Count-1
            sts =  "'" & sheet(i,0).text & "'," & sts
        Next
        sts = "(" & sts.Trim(",") & ")"
    End If
End If

MessageBox.Show(sts)

怎么来怎么去

 你想说什么，你想做什么？

for each s as string in sts.split(",")

我想遍历sts

看4楼

 你就不能在循环的过程中操作么？为什么还要组合以后，又遍历一次啊。

大红袍提供的思路我试一下。先谢谢！