主题：关于Maxlength的一个问题

 我在导入一个EXCEL表格时出现3个问题，请教一下：

 

1，

此主题相关图片如下：无法设置列违法了maxlength.png

此主题相关图片如下：d`}`3qxj(9m{15i9ksi7bk.png

问题2：EXCEL表格中有3列日期型列，只导入了一列数据，其他2列全是空列。

 

 

 

 

 

 

 

此主题相关图片如下：excel中三列日期型数据.png

 

 

 

 

 

此主题相关图片如下：导入后只有一列日期型.png

 

 

第三个问题：

 

EXCEL中有3000多条数据，只导入了234条数据，什么原因？

 

 

 

把这个excel导出为文本文件，在foxtable再导入此文本文件

就是说导入或者合并EXCEL文件就是有这样的问题，没有办法解决么？只能转换为文本文件才可以？

 

Dim ip As New Importer
ip.SourcePath = "e:\保险\" '指定目录
ip.SourceTableName = "01月起保3384" '指定要导入的文件"订单.txt"
ip.NewTableName ="客户信息表" '导入后的表名
ip.Format = "Delimited" '指定导入格式
ip.Import()

 

 

我用了以上筛选器，又出现如下图的异常：

 

 

 

 

此主题相关图片如下：select与剧中又错误.png

 

 

 

代码如下：

Dim  Book As New XLS.Book("e:\保险\01月起保3384.xlsx")
 Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Tables("客户信息表").StopRedraw()
 '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As  String = {"保单号","姓名","车牌号车架号后6位","厂牌型号","购置价","发动机号","登记日期","保险生效日","保险终止日","证件号","电话号码"}
 '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
 For n As Integer = 1 To Sheet.Rows.Count -1
     Dim r As  Row = Tables("客户信息表").AddNew()
     For  m As  Integer = 0 To nms.Length - 1
           r(nms(m)) = Sheet(n,m).Value
     Next
 Next
 Tables("客户信息表").ResumeRedraw()

 

 

出现转换无效提示：

 

 

 

实例上传

 

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

点击浏览该文件:示例.xlsx

此主题相关图片如下：转换无效.png

= {"保单号","姓名","车牌号车架号后6位","厂牌型号","购置价","发动机号","登记日期","保险生效日","保险终止日","证件号","电话号码"}

尝试导入一个EXCEL表格，除了出现MAXLENGTH错误，还出现了格式转换错误。

此主题相关图片如下：无法设置列违法了maxlength.png


此主题相关图片如下：转换无效.png

 

以前导入虽然也出现上述错误，但是还能导入部分记录，今天出现这些错误没有导入任何数据。

对于导入excel文件，帮助文件中建议合并数据时，要求table中的列必须与excel文件的列名称保持一致，否则会出错，建议通过自己写代码的方式导入excel文件的数据，可以参考下面的代码：

感谢回复，目前导入excel文件字段名称顺序一致，总是出现不能定义某列，应为其宽度超出了该列MAxlength。我定义的列宽是文本型60。问题出在哪儿。当关闭若干这样的出错对话框后，一般能导入几十条记录，绝大多数记录没有导入。

有问题的execl文档发上来测试