主题：帮忙完善下EXCLE导入代码吧~~

下载信息  [文件大小：480.0 KB  下载次数：0]

点击浏览该文件:导入excel (1).foxdb

产生错误的原因：

删除字段以后 excel表和数据表的对应关系发生变化

所以先确认对应关系 然后再导入

下载信息  [文件大小：480.0 KB  下载次数：4]

点击浏览该文件:导入excel (1).foxdb

产生错误的原因：

删除字段以后 excel表和数据表的对应关系发生变化

所以先确认对应关系 然后再导入

不知道你导入的时候的选择是怎样的 

有一点要注意下

excel文件中 被导入的字段名一定要在第一行 并且第一行不能为空

我将关键代码加了下注释 你分析改进下吧

 Dim rn As Integer
    Dim cn As Integer
    Dim k As Integer
    Dim k1 As Integer
    Dim cn1 As Integer
    Dim xm As new List(of Integer)
    For k=0 To t2.Rows.count-1
        For cn=0  To sheet.Cols.count-1
            If sheet(0,cn).value=t2.Rows(k)("来源字段") Then ''查找导入字段在excel中第一行的列位置,如果找到就将该列位置加入集合xm
                xm.Add(cn)
            End If
        Next
    Next
    If xm.count>0 Then ''如果获取到列位置
        For rn=1 To sheet.Rows.count-1
            Dim rr As Row=Tables("表A").addnew
            For k=0 To t2.Rows.count-1
                For tt As Integer=0 To xm.count-1
                    If t2.Rows(k)("来源字段")=sheet(0,xm(tt)).value Then ''如果来源字段和接收字段按设定匹配就开始导入
                        rr(t2.Rows(k)("接收字段"))=sheet(rn,XM(tt)).value ‘’将对应excel表的单元格值写入foxtable
                    End If
                Next
               
            Next
        Next
       
    End If