- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 选择窗口导入数据时出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85046)
-- 发布时间：2016/5/16 15:14:00
-- 选择窗口导入数据时出错
老师下午好，如下图
在选择导入时，出现提示错误，不过我的代码和其它的一样啊，其它的选择导入都可以的，为什么这里有这个提示呢？
此主题相关图片如下：step.png
此主题相关图片如下：mistake.png
-- 发布时间：2016/5/16 15:15:00
--
执行什么代码，报什么错？截图或实例说明
-- 发布时间：2016/5/16 15:16:00
--
不好意思，刚才不小心点到了一个快捷键，没有编码完就发出去了
-- 发布时间：2016/5/16 15:17:00
--
贴出编写的代码。
-- 发布时间：2016/5/16 15:22:00
--
Dim Cols1() As String = {"存货编码","刀具类型","规格型号","品牌","用途"}
Dim Cols2() As String = {"存货编码","刀具类型","规格型号","品牌","用途"}
Dim count As Integer = 0
For Each r1 As Row In Tables("车间刀具库").GetCheckedRows
Dim t As Table = Tables(vars("车间刀具"))
Dim r2 As Row
If count = 0 Then
r2 = t.current
Else
r2 = t.addnew
End If
count += 1
For i As Integer = 0 To Cols1.Length -1
r2(Cols2(i)) = r1(Cols1(i))
Next
Next
Forms("车间刀具选择").close
我可以确认两个表的对应列名称是没有问题的，另窗口里的表没有用复制表。
-- 发布时间：2016/5/16 15:27:00
--
弹出 msgbox(vars("车间刀具"))
其余代码基本没有问题，如果还报错，只能是你DataColChanged事件有问题。
-- 发布时间：2016/5/16 15:35:00
--
datacolchanged里没有写代码啊，Vars("车间刀具")也仔细核对名称没有错
车间刀具选择和报废列表里的列对应如下图
此主题相关图片如下：333.png
-- 发布时间：2016/5/16 15:44:00
--
代码没问题，你加入msgbox定位一下错误。
不会做就上传实例测试。
-- 发布时间：2016/5/16 16:05:00
--
麻烦大大帮我看看，谢谢咯
-- 发布时间：2016/5/16 16:10:00
--
汗，看6楼啊，你根本就没有给 vars("车间刀具") 赋值
要么写 vars("车间刀具") = "车间刀具库"
要么直接写 Dim t As Table = Tables("车间刀具库")