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

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

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

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

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

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

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

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

把数据库发上来，或者是，抽取一个表格发上来。

导出导入后，相当于一个新的表了，自然不会有问题。

很可能是你外部数据库的问题，把你数据库发上来测试下。

如果不影响使用，你暂时先允许其不报错。

把你的数据库拷贝一份，把多余的表格删除，然后，把数据库发上来测试

拷贝数据库。拷贝你的sqlserver或者access数据库，然后删除表，发上来测试，不要影响你原来项目。

请单独做一个例子发上来测试。

 回复19楼，如果是这种问题，是你主键的问题。

 你的主键不是自动递增的，必须给主键列赋值以后，才能做其它操作。

----------------------------

 Dim r2 As DataRow = DataTables("oemp_dim").addnew()

 Dim idx As Integer = Tables("oemp_dim").FindRow(r2)

 msgbox(idx)

 Tables("oemp_dim").Position = id