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

卷号是第5列，不是0列

Dim r As DataRow = t.DataTable.Find("qh = '" & sheet(n, 5).text & "'")

另外execl里面是标题名，您通过列名来判断是否不会标题名，是木有意义的

Dim cname As String = sheet(0, i).text

If t.Cols.Contains(cname) Then

要么先把列名和标题名的对应放到字典里，发布查询；要么遍历所有列，看哪一个列的标题等于cname ，在获取对应的列名，比如

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

Dim cname As String = sheet(0, i).text

If t.Cols(i).caption = cname Then

If t.Cols(i).IsBoolean Then

……

r(t.Cols(i).name) = sheet(n, i).Text

主题：导入EXCEL