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

Dim dlg As new OpenFileDialog

dlg.Filter = "Excel|*.xls;*.xlsx"

If dlg.ShowDialog = DialogResult.OK Then

Dim Book As New XLS.Book(dlg.FileName)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim bmh As Integer

Dim ksh As Integer

Dim xm As Integer

Dim sw As Integer

Dim dl As Integer

Dim njdm As Integer

Dim bj As Integer

Dim xxmc As Integer

For i As Integer = 0 To sheet.Cols.count -1

If sheet(0,i).value = "报名号"

bmh =i

End If

If sheet(0,i).value = "考试号"

ksh = i

End If

If sheet(0,i).value = "xm"

xm = i

End If

If sheet(0,i).value ="生物"

sw = i

End If

If sheet(0,i).value ="地理"

dl = i

End If

If sheet(0,i).value ="年级代码"

njdm = i

End If

If sheet(0,i).value ="班级"

bj = i

End If

If sheet(0,i).value = "学校名称"

xxmc = i

End If

Tables("成绩").StopRedraw()

For n As Integer = 1 To Sheet.Rows.Count -1

Dim bmh1 As String = sheet(n,bmh).value.replace(" ","").replace(chr(9),"")

Dim xm1 As String = sheet(n,xm).value.replace(" ","").replace(chr(9),"")

Dim bj1 As String = sheet(n,bj).value.replace(" ","").replace(chr(9),"")

Dim njdm1 As String = sheet(n,njdm).value.replace(" ","").replace(chr(9),"")

Dim xxmc1 As String = sheet(n,xxmc).value.replace(" ","").replace(chr(9),"")

Dim dr As DataRow = DataTables("成绩").sqlFind("单位名称 = '" & xxmc1 & "'and 姓名 = '" & xm1 & "'And 考试名称 = '" & e.form.Controls("ComboBox2").value & "' And 年级代码 = '" & njdm1 & "' And 班级 = '" & bj1 & "'")

' If dr Is Nothing Then '如果不存在同考号的行

' dr = DataTables("学生信息").AddNew()

' End If

For m As Integer = 0 To sheet.Cols.count -1

Select Case sheet(0,m).value

Case "生物"

dr("生物_A") = sheet(n,m).value

Case "地理"

dr("地理_A") = sheet(n,m).value

Case "报名号","考试号"

dr(sheet(0,m).value) = Sheet(n,m).Value.replace(" ","").replace(chr(9),"")

End Select

Tables("成绩").ResumeRedraw()

DataTables("成绩").save()

End

老师，我有成绩表，另有一个生物地理EXCL表结构如下

报名号	考试号	姓名	生物	地理	年级代码	班级	学校名称
175902137001	170213604	曹洪图	16	39	14	03	内江市东兴区石子镇中心学校

想按年级，班级，学校名称，考试名称，姓名，将生物，地理成绩导入到生物_A,地理_B,现写出上面代码不够简洁，另外还有错误提示：未设置对象变量或 With 块变量。请问错在哪里，如何更简洁，谢谢

主题：代码问题