主题：如何将excel表格的数据自动导入数据表

代码改成这样

 

If User.Group = "营销" Or User.name = "开发者"
   If CurrentTable.name.contains("直身开料单")
       Dim Book As New XLS.Book("c:\开料任务单.xls")
       Dim Sheet As XLS.Sheet = Book.Sheets(1)
       Tables("直身开料单").StopRedraw()
       Dim nms() As String = {"piao号","订单号","制造产品号","材料","物料号","开料参数","大小弯","数量","开料mm","开料inch","开料数量"}
       For n As Integer = 1 To Sheet.Rows.Count -1
           Dim r As Row = Tables("直身开料单").AddNew()
           r("生产piao号") = sheet(n, 0).text
           r("订单号") = sheet(n, 1).text
           r("制造产品号") = sheet(n, 2).text
       Next
       Tables("直身开料单").ResumeRedraw()
    End If
End If

那试试改成这样测试

Dim Book As New XLS.Book("c:\开料任务单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("直身开料单").StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
    msgbox(sheet(n, 0).text)
    Dim r As Row = Tables("直身开料单").AddNew()
    r("生产piao号") = sheet(n, 0).text
    r("订单号") = sheet(n, 1).text
    r("制造产品号") = sheet(n, 2).text
Next
Tables("直身开料单").ResumeRedraw()

这个意思？参考

 

http://www.foxtable.com/webhelp/scr/0233.htm

 

http://www.foxtable.com/webhelp/scr/0240.htm

 

无法远程打开excel文件的。只能在本地电脑打开foxtable项目，然后再引用本地的excel文件。

 

不可以，必须把你的excel文件弄到自己的电脑，才能打开和导入。

Dim dr As DataRow = DataTables("工资计算").Find("年月 = '" & ny & "'" And "姓名 = '" & xm & "'") 

 

改成

 

Dim dr As DataRow = DataTables("工资计算").Find("年月 = '" & ny & "' And 姓名 = '" & xm & "'") 

没看懂你的问题。

 

excel文件发上来，具体项目发上来，说明最后需要做到的效果

Dim nms2() As String = {"计件工资","计时工资","误餐补贴"}
For m As Integer = 0 To nms.Length - 1
    If array.Indexof(nms2, nms(m)) >= 0 Then
        If Sheet(n,m).Value = ""
            dr(nms(m)) = dr(nms(m)) + 0
        Else
            dr(nms(m)) = dr(nms(m)) + Sheet(n,m).Value
        End If
    Else
        If Sheet(n,m).Value = ""
            dr(nms(m)) = 0
        Else
            dr(nms(m)) = Sheet(n,m).Value
        End If
    End If
Next