Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共10 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
菜鸟foxtable 发表于:2009/1/14 16:26:00

如图所示,依照示例做了个模式窗口,选择行时执行下列代码(已经去掉标记红色那段),如果直接点击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
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-1-14 16:35:38编辑过]
2楼
狐狸爸爸 发表于:2009/1/14 17:07:00
经过测试,没有发现问题。
3楼
kylin 发表于:2009/1/14 17:12:00
如果还有问题的话,Dim dr as DataRow = dst.Current '获得选定行,按以下修改

Dim dr as DataRow = dst.Current.datarow'获得选定行
4楼
菜鸟foxtable 发表于:2009/1/14 17:13:00
以下是引用狐狸爸爸在2009-1-14 17:07:00的发言:
经过测试,没有发现问题。

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


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

[此贴子已经被作者于2009-1-14 17:13:44编辑过]
5楼
狐狸爸爸 发表于:2009/1/14 17:34:00
以下是引用菜鸟foxtable在2009-1-14 17:13:00的发言:

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


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

[此贴子已经被作者于2009-1-14 17:13:44编辑过]


我就是放在CurrentChanged中的。

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

Datalist可以绑定任何DataTable

6楼
czy 发表于:2009/1/14 17:45:00
老六,这问题是存在的,但我这里不象楼主说的用e.form.Close()关闭就没事,都出现相同错误


图片点击可在新窗口打开查看此主题相关图片如下:qq截图未命名.bmp
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计演示.table

7楼
狐狸爸爸 发表于:2009/1/14 18:33:00

加个判断吧:

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

8楼
czy 发表于:2009/1/14 22:28:00
老六,我倒觉得象这种数据列表和绑定主表的焦点行同步的代码不应该用户写才对,因为这种功能没有任何弊端,岂不全由你解决的好。
9楼
狐狸爸爸 发表于:2009/1/14 22:30:00
以下是引用czy在2009-1-14 22:28:00的发言:
老六,我倒觉得象这种数据列表和绑定主表的焦点行同步的代码不应该用户写才对,因为这种功能没有任何弊端,岂不全由你解决的好。


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

10楼
kylin 发表于:2009/1/15 8:42:00
以下是引用kylin在2009-1-14 17:12:00的发言:
如果还有问题的话,Dim dr as DataRow = dst.Current '获得选定行,按以下修改

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

晕,我投了个臭弹

共10 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 3 queries.