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