主题：动态DataList如何定位引用数据所在表的位置?

动态DataList如何定位引用数据所在表的位置?引用数据存在完全重复行.




此主题相关图片如下：001.jpg

双击DataList打开修改窗口,请问如何设置保存按钮进行引用数据行的修改?

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

点击浏览该文件:datalist定位.table

帮助里的示例是已经绑定的DataList,不太一样哦.

Current

DataRow类型，返回DataList所选定的行。

示例

DataList并没有提供编辑功能，但是我们可以间接地为DataList加上编辑功能。
假定订单表是一个内部表，该表已经有一个设计好的数据录入窗口，窗口的名称为“窗口1”，为了能够在其他表中使用这个窗口，我们将该窗口的类型设为模式型(也可以是独立型)。
客户表中也有一个窗口，该窗口有一个DataList控件和一个按钮，DataList控件已经绑定到订单表，我们希望单击这个按钮，能够编辑在DataList中选定的订单。
为此，可将该按钮的Click事件代码设为：

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 '定位到选定行
    Forms("窗口1").Open() '打开编辑窗口
End If