此主题相关图片如下: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)