- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]导入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44990)
-- 发布时间：2014/1/13 14:17:00
-- [求助]导入问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:cs.rar |
Dim Book As New XLS.Book("d:\\数据管理\\厂发货数.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("厂发货数量").StopRedraw()
Dim nms() As String = {"车号","到站","规格","件数","吨位","实重"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim ch As String = sheet(n,0).Text
If DataTables("订单").Find("车号 = \'" & ch & "\'") Is Nothing Then \'如果不存在同编号的订单
Dim r As Row = Tables("厂发货数量").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
End If
Next
Tables("厂发货数量").ResumeRedraw()
窗口管理 厂发货数量 合并没反映请帮助看看
[此贴子已经被作者于2014-1-13 14:24:42编辑过]
-- 发布时间：2014/1/13 14:32:00
--
你这个不是标准的Excel表格,这样是取不到值的.
你可以弹出Sheet.Rows.Count看看,可以发现是0行的.
-- 发布时间：2014/1/13 14:56:00
--
谢谢！重建表格可以合并了。
-- 发布时间：2014/1/13 15:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:cs.rar |
导入数据成功，保存后有行数据变成0值，是哪里错？
-- 发布时间：2014/1/13 15:43:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据管理.foxdb |
-- 发布时间：2014/1/13 15:59:00
--
Dim dr As DataRow = DataTables("厂家发货通知").addnew
Dim r As DataRow = e.DataRow
Dim strs As String() = r("规格").split("*")
dr("材质")=strs(0)
dr("规格")=strs(1)
dr("长度")=strs(2)
dr("车皮号")=r("车号")
dr("厂发数量")=r("件数")
dr("厂发重量")=r("吨位")
Dim nma() As String = {"到站","车号","件数","吨位"}
Dim nmb() As String = {"到站","车皮号","厂发数量","厂发重量"}
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
谢谢！我代码有问题。以解决。