If Forms("尺码组编辑").Opened() Then
If Tables("尺码组编辑_尺码").rows.Count > 0 Then
Dim A As Row = Tables("尺码组编辑_尺码").Current
Dim b As Row = Tables("尺码组编辑_尺码组尺码").AddNew()
b("编号") = a("编号")
b("尺码名称") = a("尺码名称")
a.Delete()
Dim zz As Row = Tables("尺码组").Current
If zz.IsNull("尺码组") Then
zz("尺码组") = b("编号") & "," & b("尺码名称")
Else
zz("尺码组") = zz("尺码组") & "|" & b("编号") & "," & b("尺码名称")
End If
End If
End If
引用新增表里面的参数就行了。