标题：Current函数示例是否有BUG?

如图所示,依照示例做了个模式窗口,选择行时执行下列代码(已经去掉标记红色那段),如果直接点击X关闭窗口则提示出错,而点击按钮(内有e.form.Close()代码)关闭窗口则不会报错.WHY?

另问:动态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 '获得选定行
Dim Index As Integer = Tables("订单").FindRow(dr) '获得选定行在Tables("订单")中的位置
If Index >=0 Then '如果选定行在Tables("订单")中存在
    Tables("订单").Position = Index '定位到选定行
    Forms("窗口1").Open() '打开编辑窗口
End If

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

经过测试，没有发现问题。

如果还有问题的话,Dim dr as DataRow = dst.Current '获得选定行,按以下修改

Dim dr as DataRow = dst.Current.datarow'获得选定行

你有把代码放在DataList的CurrentChanged里吗?


另问:动态DataList引用非主表非关联表数据能否实现类似功能?

我就是放在CurrentChanged中的。

一般来说，反馈一个问题，最好做一个简单的例子传上来来说明，这样只管很多。

Datalist可以绑定任何DataTable

老六，这问题是存在的，但我这里不象楼主说的用e.form.Close()关闭就没事，都出现相同错误


此主题相关图片如下：qq截图未命名.bmp

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

点击浏览该文件:统计演示.table

加个判断吧：

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

老六，我倒觉得象这种数据列表和绑定主表的焦点行同步的代码不应该用户写才对，因为这种功能没有任何弊端，岂不全由你解决的好。

不应该自动同步的，因为不少的场合并不需要同步的。

晕，我投了个臭弹