主题：求助代码！ 不要克隆行的，能不能克隆选定的单元格啊

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:sy.table

在入库表里 双击 客户名称 列   添加客户 但每次都要克隆不需要的信息 如数量  单位等  
我只需要 克隆  客户名称   代码不会 

Dim dr1 As Row = CurrentTable.Current
Dim dr2 As Row = CurrentTable.AddNew()
dr2("指定列") = dr1("指定列")
……

Dim DST as DataRow = CurrentTable.Current.DataRow
If e.Table.name = "双击输入窗口2_Table1" then
    If CurrentTable.Current Isnot  Nothing Then
        Dim dr As Row = Tables("入库表").AddNew
        Tables("入库表").Current("商品名称") = dst("商品名称")
        Tables("入库表").Current("品牌") = dst("品牌")
    End if
End if