
此主题相关图片如下:未标题-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
Datalist中的光标行为什么不能随着表格中的光标变动呢?