Dim r As Row = Tables("客户资料").currentDim dr As Row = Tables("客户资料").addnewdr("户名")=r("户名")MessageBox.Show("克隆行成功! .")