DataTables("开模申请单").Save() '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值. Dim id As String = e.Form.Controls("Label2").Text DataTables("开模申请单").removefor("[_Identify] in (" & id & ")") DataTables("开模申请单").AppendLoad("[_Identify] in (" & id & ")") Forms("模具申请表2").Open() e.Form.Close()