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