Dim dt As Table = Tables("人事档案")
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
Book.Save(dlg.FileName)
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
上面是想导出表头出来做样表
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 bh1 As Integer
Dim xm1 As Integer
For i As Integer = 0 To sheet.Cols.count -1
If sheet(0,i).value = "单位全称"
bh1 =i
End If
If sheet(0,i).value = "姓名"
xm1 = i
End If
Next
Tables("人事档案").StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,bh1).value.replace(" ","").replace(chr(9),"")
Dim xm As String = sheet(n,xm1).value.replace(" ","").replace(chr(9),"")
Dim dr As DataRow = DataTables("人事档案").Find("单位全称 = '" & bh & "' And 姓名 = '" & xm & "'")
If dr Is Nothing Then '如果不存在同考号的行
dr = DataTables("人事档案").AddNew()
End If
For m As Integer = 0 To sheet.Cols.count -1
If sheet(0,m).value IsNot Nothing
dr(sheet(0,m).value) = Sheet(n,m).Value.replace(" ","").replace(chr(9),"")
End If
Next
Next
Tables("人事档案").ResumeRedraw()
End If
For Each r As Row In Tables("人事档案").Rows
For Each c As Col In Tables("人事档案").Cols
If r.IsNull(c.Name) = False AndAlso c.IsString Then
r(c.Name) = r(c.Name).replace(" ","")
r(c.Name) = r(c.Name).replace(chr(9),"")
End If
Next
Next
DataTables("人事档案").DataCols("身份证号码").RaiseDataColChanged()
这段是将数据在EXCL中做好再导进去，
出现: 列“”不属于表 人事档案。 错误请问是什么原因
加好友 
发短信
Post By：2016/12/24 15:28:00 [只看该作者]
