DataList控件CurrentChanged事件BUG?(已解决) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如题,如果当前DataList只有一行,CurrentChanged事件无法执行.

在CurrentChanged事件里加入如下代码:
Dim cmd As New SQLCommand
cmd.Con nection Name = "zygl" 此行ConnectionName论坛显示不正常,所以故意留空格
Dim dst1 As WinForm.DataList = e.Form.Controls("DataList1")
Dim dst2 As WinForm.DataList = e.Form.Controls("DataList2")
if dst1.count>0 then
    Dim dr1 as DataRow = dst1.Current
    dim str as string = dr1("住院ID")
    cmd.CommandText = "SELECT * FROM [长嘱] where 住院ID = '"& str &"'"
    dst2.DataTable = cmd.ExecuteReader()
    dst2.Build()
end if

如果DataList1只有一行,BUG出现,选择此行,代码执行不正确.DataList2输出值为空.

图片点击可在新窗口打开查看

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

点击任意一列排序,DataList2才正常输出.

图片点击可在新窗口打开查看

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

[此贴子已经被作者于2009-2-1 17:11:51编辑过]

主题：DataList控件CurrentChanged事件BUG?(已解决)