- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关联表能否导入？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116438)
-- 发布时间：2018/3/24 17:47:00
-- [求助]关联表能否导入？
关联做的窗口，想保留2个表的关联性，数据太多只能选择导入，但是代码不行，找不到这个关联的表
请问怎么能实现？
Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("平台主丹.平台明细").StopRedraw()
Dim nms1() As String = {"客户姓名","联系电话","订购产品","订购数量","订购单价","订购金额","客户地址","快递单号","订单编号"}
Dim nms2() As String = {"客户姓名","联系电话","订购产品","订购数量","订购单价","订购金额","客户地址","快递单号","订单编号"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("平台主单.平台明细").AddNew()
For i As Integer = 0 To sheet.Cols.Count -1
Dim idx As Integer = array.indexof(nms1, sheet(0,i).Text)
If idx >= 0 Then
r(nms2(idx)) = sheet(n, i).Text
End If
Next
Next
Tables("平台主单.平台明细").ResumeRedraw()
End If
此主题相关图片如下：dddddddddd.jpg
此主题相关图片如下：dddddddddd.jpg-- 发布时间：2018/3/24 17:50:00
--
反过来关联？
-- 发布时间：2018/3/24 19:15:00
--
-- 发布时间：2018/3/25 14:01:00
--
不可以吗？
-- 发布时间：2018/3/25 16:16:00
--
11111
-- 发布时间：2018/3/25 16:17:00
--
提示什么错误？如果提示某表不存在，说明你表名写错，或者是，表格确实不存在。
你尝试改成这样的表名【平台明细】
-- 发布时间：2018/3/25 16:44:00
--
老师，有个表A 有三列数据
编号 产品 运单号
1 A
2 B
3 C
4 D
5 E
我现在把表数据导出做发货，然后快递运单号回来后，我想实现导入进去更新运单号的功能。
-- 发布时间：2018/3/25 22:09:00
--
根据编号写回运单号即可，如
http://www.foxtable.com/webhelp/scr/2334.htm