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

老师，为了便于下一步软件更新时能快速转移内部数据，我设计了先用快速EXCEL导出后，转移文件到新软件，然后一键读取的功能，但是神奇的是，有的表格日期、时间、整数、字符什么的都能顺利读取，有的却在日期时间和整数的提取中失败了，系统提示：从字符串“日期时间”到类型“Date”的转换无效。怎么办，有什么好办法吗~~~~~ 图片点击可在新窗口打开查看

还有就是备注列多行内容有的也成果导入导出了，有的却不行，还自动把内容加了“”，我打开excel把多行内容的单元格双击后，显示为多行，然后再导入也能陈功，但还是有“”

同时建议下一步可以设计一个系统功能，一键可以将快速导出的excel原样导入回去（新软件内部已有无数据的带标题表格），因为我们大多数都只用excel或word办公。

导入是在快速导出EXCEL的文件基础上用如下方法：

DataTables("人员信息管理").DataRows.Clear

Dim Book2 As New XLS.Book(ProjectPath & "Reports\数据转移\人员信息管理.xls")

Dim Sheet2 As XLS.Sheet = Book2.Sheets("人员信息管理")

Tables("人员信息管理").StopRedraw()

'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

Dim nms2() As String = {"序号","姓名","性别","民族","XXXX"}

'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的前1行是标题

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

Dim r As Row = Tables("人员信息管理").AddNew()

For m As Integer = 0 To nms2.Length - 1

r(nms2(m)) = Sheet2(n,m).Value

Tables("人员信息管理").ResumeRedraw()

Tables("人员信息管理").DataTable.Load()

[此贴子已经被作者于2017/12/29 11:37:17编辑过]

主题：关于发布后如何补丁