主题：Datalist中的行如何与表格同步呢?

此主题相关图片如下：未标题-2.jpg


如何设置上方的"删除", 上一行,下一行的代码呢?

删除的Chick代码如下,可以吗?

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current '获得选定行
If dr Is Nothing Then
    Return
End If
Dim Index As Integer = Tables("调坯单").FindRow(dr) '获得选定行在Tables("订单")中的位置
If Index >=0 Then '如果选定行在Tables("订单")中存在
With Tables("调坯单")
    If .Current IsNot Nothing Then
        .Current.Delete
    End If
End With
End If

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current '获得选定行
If dr Is Nothing Then
    Return
End If
Dim Index As Integer = Tables("调坯单").FindRow(dr) '获得选定行在Tables("订单")中的位置
If Index >=0 Then '如果选定行在Tables("订单")中存在
   Tables("调坯单").Position = Index
End If

Datalist中的光标行为什么不能随着表格中的光标变动呢?