主题：导入问题

1、

 

Dim ary() As String = {"班级", "学生姓名", "学校名称", "身份证件号"}

If Array.IndexOf(ary, dr(sheet(0,m).value)) < 0 Then

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

End If

 

2、sqlFind改成sqlSelect，看有多少行，如果大于1行，就在备注列，备注成重复，然后手工处理。