主题：求助--关于自动获取某些字段内容

 我们现在做一个合同管理系统，合同表 与 合同明细表关联
合同表 输入完成后，去编辑 合同明细表

希望实现 点击增加明细后 合同明细表中新增加行的“合同编号”字段 能自动添加 合同表中
选中行的“合同编号”中的内容，

下面是之前用的代码，只能自动提取最后一行的内容，但若编辑 合同表 中其他行时就不行了
谢谢先！
Dim t As Table = Tables("合同")
Dim dr As DataRow
    dr = DataTables("合同").DataRows(t.Rows.Count - 1)
    e.DataRow("合同编号")= dr("合同编号")

很简单:

 

1、二者通过合同编号建立关联。

2、在合同明细表的DataColChanged事件设置代码：

 

if e.DataCol.Name = "合同编号"  AndAlso e.DataRow.isNull("合同编号") = False then

   if e.DataRow.GetParentRow("合同表") is Nothing Then

      Dim dr As DataRow = DataTables("合同表").AddNew()

      dr("合同编号") = e.DataRow("合同编号")

   end if

end if

我把表发过来了，您帮我看看，是不是我哪设置有问题？ 点增加明细时，合同编号没有提过来

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:123.table

我之前可能误解你的意思了，应该这样：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:123.table

谢谢狐狸爸爸！