以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  【求助】关于跨表引用  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99021)
--  作者：10059
--  发布时间：2017/4/11 11:08:00
--  【求助】关于跨表引用
老师，请问在执行下面这段代码时，表（oemp_dim）中没有“职员编码”这个字段，为什么执行也不会报错呢？？

Dim r1 As Row = Tables("obas_emp").current
If r1 Is Nothing Then
    MessageBox.show("请选定目标行","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    Dim r2 As Row = Tables("oemp_dim").addnew()
    r2("职员编码") = r1("emp_no")
    Forms("员工离职编辑").open()
End If
--  作者：有点色
--  发布时间：2017/4/11 11:11:00
--  

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

 

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
--  作者：10059
--  发布时间：2017/4/11 11:19:00
--  
都执行了。111-FALSE-222-打开编辑窗口，就是没有报错
--  作者：有点色
--  发布时间：2017/4/11 11:25:00
--  

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

 

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

 

 如果还有问题，直接把你的项目发上来测试下。
--  作者：10059
--  发布时间：2017/4/11 11:39:00
--  
我用其他张表测试也是会报错的，“oemp_dim”这张表加载是外部数据库中的表，会不会跟数据库中的约束有关？？
--  作者：有点色
--  发布时间：2017/4/11 11:55:00
--  
 你重新引用一次这个表命名为 abc，再测试下abc 是否正常。
--  作者：10059
--  发布时间：2017/4/11 12:04:00
--  
还是一样
--  作者：有点色
--  发布时间：2017/4/11 12:10:00
--  
以下是引用10059在2017/4/11 12:04:00的发言：
还是一样

 

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

 

你把你这个表做个里上来测试下。
--  作者：10059
--  发布时间：2017/4/11 14:20:00
--  
数据库中的表做例子发上去也连不了啊？？
--  作者：10059
--  发布时间：2017/4/11 15:24:00
--  
有两张表，分别是“所有员工档案”和“离职员工档案”，当我选中“所有员工档案”中某一行后，单击按钮，然后“离职员工档案”自动增加一行，将“所有员工档案”部分列的数据赋值给“离职员工档案”对应的列，请问老师还有什么方法可以实现？？谢谢啦！！