主题：如何提取关联表最后一条记录数据

你只看到了电缆仓明细的DataColChanged事件中的代码：

If e.DataCol.Name = "分段" Then
  Dim Dr As DataRow = e.Datarow.GetParentRow("电缆仓")
  If Dr IsNot Nothing Then
     DataTables("电缆仓").DataCols("分段").Recalc(dr)
  End if
End if

却没有看到在电缆仓的分段列，还有计算代码：

Dim Dr As DataRow = DataTables("电缆仓明细").Find("pid = " & e.DataRow("_Identify"),"_Identify Desc")
If Dr IsNot Nothing Then
   e.Datarow("分段") = dr("分段")
End If