我做了2个表, 1个表为主表, 另一表为字表, 两表未采用关联, 操作方式为当主表变更内容, 附表也将按主表内容调整为对应关联信息,

但当我点击设置的附表增加行时, 理论上在原有内容下应该增加空行, 但实际却仅显示增加的空行, 但是如果单击一下主表另一行,再重新点击该行,则所有应该显示的内容确认又显示了

本来想利用 _IDentify ,同时将过滤定义为 或大于这个值

我的增加行的代码如下:

Dim dr As Row = Tables("MainProcessData").Current
Dim max As Integer = DataTables("ProcessData").Compute("max([_Identify])")
MessageBox.Show( "max=" & max)
With Tables("Processdata")
    \'.StopRedraw
    Dim drn As Row = .AddNew()
    drn("PartID")=dr("PartID")
    drn("LotID")=dr("LotID")
    drn.DataRow.Save
    \'Dim max1 As Integer = DataTables("ProcessData").Compute("max([_Identify])")
    \'MessageBox.Show("max=" & max & "    Max1=" & max1)
    .Filter ="(PartID =\' " & dr("PartID") & "\' and LotID=\' " & dr("lotID") & "\')"          \'  Or [_Identify]> " & Max
    \'  .ResumeRedraw
End With

Dim dr As Row = Tables("MainProcessData").Current

试试改成

Dim dr As Row = e.form.controls("Table1").Table.Current

如果还有问题，弹出 dr("PartID") 等的值看看是否正确。