主题：[求助]导入问题

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

点击浏览该文件: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()

 

窗口管理 厂发货数量 合并没反映请帮助看看

你这个不是标准的Excel表格,这样是取不到值的.

谢谢！重建表格可以合并了。

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

点击浏览该文件:cs.rar

导入数据成功，保存后有行数据变成0值，是哪里错？

.

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

点击浏览该文件:数据管理.foxdb

 

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

 

谢谢！我代码有问题。以解决。