主题：选择窗口导入数据时出错

老师下午好，如下图

 

在选择导入时，出现提示错误，不过我的代码和其它的一样啊，其它的选择导入都可以的，为什么这里有这个提示呢？

 

此主题相关图片如下：step.png

 

此主题相关图片如下：mistake.png

执行什么代码，报什么错？截图或实例说明

不好意思，刚才不小心点到了一个快捷键，没有编码完就发出去了

贴出编写的代码。

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

 

我可以确认两个表的对应列名称是没有问题的，另窗口里的表没有用复制表。

弹出 msgbox(vars("车间刀具"))

 

其余代码基本没有问题，如果还报错，只能是你DataColChanged事件有问题。

datacolchanged里没有写代码啊，Vars("车间刀具")也仔细核对名称没有错

 

 

车间刀具选择和报废列表里的列对应如下图

 

 

此主题相关图片如下：333.png

代码没问题，你加入msgbox定位一下错误。

 

不会做就上传实例测试。

麻烦大大帮我看看，谢谢咯

汗，看6楼啊，你根本就没有给 vars("车间刀具") 赋值

 

要么写 vars("车间刀具") = "车间刀具库"

 

要么直接写  Dim t As Table = Tables("车间刀具库")