主题：【求助】关于跨表引用

老师，请问在执行下面这段代码时，表（oemp_dim）中没有“职员编码”这个字段，为什么执行也不会报错呢？？

执行下面的代码，看弹出什么

 

Dim r1 As Row = Tables("obas_emp").current
If r1 Is Nothing Then
    MessageBox.show("请选定目标行","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    msgbox(111)
    Dim r2 As Row = Tables("oemp_dim").addnew()
    msgbox(Tables("oemp_dim").Cols.Contains("职员编码"))
    r2("职员编码") = r1("emp_no")
    msgbox(222)
    Forms("员工离职编辑").open()
End If

都执行了。111-FALSE-222-打开编辑窗口，就是没有报错

 我测试这段代码是会报错的。

 

 你关闭项目，把项目下的bin文件夹先删除，再打开看看。

 

 如果还有问题，直接把你的项目发上来测试下。

我用其他张表测试也是会报错的，“oemp_dim”这张表加载是外部数据库中的表，会不会跟数据库中的约束有关？？

 你重新引用一次这个表命名为 abc，再测试下abc 是否正常。

还是一样

 

单独添加一个新表哦 http://www.foxtable.com/webhelp/scr/1812.htm

 

你把你这个表做个里上来测试下。

数据库中的表做例子发上去也连不了啊？？

有两张表，分别是“所有员工档案”和“离职员工档案”，当我选中“所有员工档案”中某一行后，单击按钮，然后“离职员工档案”自动增加一行，将“所有员工档案”部分列的数据赋值给“离职员工档案”对应的列，请问老师还有什么方法可以实现？？谢谢啦！！