主题：光标自动移动到新增行

按钮公式
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
For i As integer = 0 To dst.Count - 1
    If dst.GetChecked(i) Then
        Dim dr1 As DataRow = dst.GetDataRow(i)
        Dim dr2 As DataRow = DataTables("出库").AddNew()
        dr2("物品代码") = dr1("物品代码")
    End If
Next

新增一行复制“物品代码”到“出库”表新增行的 物品代码列 中
可是光标却在原地不动，并没有移置到按钮新增的行

怎么样修改代码，又不改变代码原来意思，并把光标自动移置 到新增行上。。。

改过，提示，，错误，，说什么不能用在Row中。。。

谢谢杨姐，可以了

哎，那天看了菜鸟兄的作品，感觉荒废了两个月的时间 。。。。

现在没事在做一个工具管理文件，，加深学习。。。