以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助][求助]字符串“”到类型DATE的转换无效 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122280) |
-- 作者:hrlong -- 发布时间:2018/7/22 11:17:00 -- [求助][求助]字符串“”到类型DATE的转换无效 这个导入之前都是好的,中间也没改过什么啊,今天突然就出现了这个错误,请问老师该怎么弄呢 下面的是代码 -------------------------------------------------------------------------------- Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter = "Excel文件|*.xls;*.xlsx" If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim mg As New Merger mg.SourcePath = dlg.FileName mg.Format = "excel" \'指定格式 mg.SourceTableName = "sheet0$" mg.DataTableName = "订单临时表" mg.FieldMaps.Add("收件人电话/手机","收件人电话") mg.FieldMaps.Add("收件人姓名*","收件人姓名") mg.FieldMaps.Add("商品编码*","商品编码") mg.Merge() DataTables("订单临时表").DataCols("系统单号").RaiseDataColChanged() Dim dt As DataTable = DataTables("订单临时表汇总") Dim Book As New XLS.Book(dlg.FileName) Dim Sheet As XLS.Sheet = Book.Sheets("sheet0") dt.ResumeRedraw() dt.StopRedraw() \'systemready = False Dim nms As New Dictionary(Of String, Integer) Dim dic As new Dictionary(Of DataRow, Integer) Dim ls As new List(Of Integer) For c As Integer = 0 To sheet.Cols.Count - 1 If dt.DataCols.Contains(sheet(0,c).Text.replace(" ", "")) Then nms.Add(sheet(0,c).Text.replace(" ", ""), c) End If Next Dim ls_sfzhm As new List(Of String) For n As Integer = 1 To Sheet.Rows.Count -1 Dim sfzhm As String = sheet(n,nms("系统单号")).Text If sfzhm = "" Then Continue For Dim dr As DataRow = dt.Find("系统单号 = \'" & sfzhm & "\'") If dr Is Nothing Then If ls_sfzhm.Contains(sfzhm) = False Then ls.add(n) ls_sfzhm.Add(sfzhm) End If Else dic.Add(dr, n) End If Next For Each key As DataRow In dic.Keys For Each m As String In nms.keys If dt.DataCols(m).IsBoolean Then If Sheet(dic(key),nms(m)).Text = "" OrElse Sheet(dic(key),nms(m)).Text = "False" OrElse Sheet(dic(key),nms(m)).Value = 0 Then key(m) = False Else key(m) = True End If Else If dt.DataCols(m).Expression > "" Then \'表达式列 Else If dt.DataCols(m).IsNumeric Then key(m) = val(Sheet(dic(key),nms(m)).Value) Else If dt.DataCols(m).IsDate Then Dim d As Date If Date.TryParse(Sheet(dic(key),nms(m)).Value, d) key(m) = d End If Else key(m) = Sheet(dic(key),nms(m)).Value End If Next Next For Each l As Integer In ls Dim ndr As DataRow = dt.AddNew For Each m As String In nms.keys If dt.DataCols(m).IsBoolean Then If Sheet(l,nms(m)).Text = "" OrElse Sheet(l,nms(m)).Text = "False" OrElse Sheet(l,nms(m)).Value = 0 Then ndr (m) = False Else ndr (m) = True End If Else If dt.DataCols(m).Expression > "" Then \'表达式列 Else If dt.DataCols(m).IsNumeric Then ndr (m) = val(Sheet(l,nms(m)).Value) Else If dt.DataCols(m).IsDate Then Dim d As Date If Date.TryParse(Sheet(l,nms(m)).Value, d) ndr (m) = d End If Else ndr (m) = Sheet(l,nms(m)).Value End If Next Next dt.ResumeRedraw() \'systemready = True End If Dim Vals As List(of String()) Vals = DataTables("订单临时表").GetValues("店铺|商品编码|商品规格|商品标题|商品重量") For i As Integer = 0 To Vals.Count - 1 Dim dr As DataRow = DataTables("产品统计").AddNew() dr("店铺") = Vals(i)(0) dr("商品编码") = Vals(i)(1) dr("商品规格") = Vals(i)(2) dr("商品标题") = Vals(i)(3) dr("商品重量") = Vals(i)(4) Next Dim f As New Filler f.SourceTable = DataTables("订单临时表汇总") \'指定数据来源 f.SourceCols = "系统单号,原始单号,发货时间,店铺,实付总金额,快递公司,快递单号,客户ID,收件人姓名,收件人电话,收件人地址,订单总金额,运费,款数,留言,备注" \'指定数据来源列 f.DataTable = DataTables("订单简表") \'指定数据接收表 f.DataCols = "系统单号,原始单号,发货时间,店铺,实付总金额,快递公司,快递单号,客户ID,收件人姓名,收件人电话,收件人地址,订单总金额,运费,款数,留言,备注" \'指定数据接收列 f.ExcludeExistValue = True f.Append = False f.Fill() \'填充数 Syscmd.Project.Save() |
-- 作者:有点甜 -- 发布时间:2018/7/22 17:05:00 -- 加入msgbox,调试一下是哪句代码导致的报错
http://www.foxtable.com/webhelp/scr/1485.htm
|