请教:二个DataList如何显示关联? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教:二个DataList如何显示关联?

共有23434人关注过本帖树形打印复制链接主题：请教:二个DataList如何显示关联?

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47521 积分：251552 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/7 17:10:00 [显示全部帖子]

在窗口2的AfterLoad事件中加入：

Dim dr As DataRow = forms("窗口1").Controls("DataList1").Current '取得窗口1选择的员工行

e.Form.Controls("DataList1").RowFilter = "[工号] = '" & dr("工号") & "'"

[此贴子已经被作者于2009-5-7 17:10:14编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47521 积分：251552 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/7 17:23:00 [显示全部帖子]

哪里啊？
你的代码和我一样，而且你的更清晰严谨啊。

[此贴子已经被作者于2009-5-7 17:29:13编辑过]

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47521 积分：251552 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/7 17:59:00 [显示全部帖子]

以下是引用yangming在2009-5-7 17:37:00的发言：
二位老师的代码是能在找开窗口二时就是我选的行,但是不能动态的显示出关联来,有何办法?

你的意思是两个窗口同时打开，在窗口1中选择移一行，窗口2动态显示关联行？

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47521 积分：251552 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/7 18:14:00 [显示全部帖子]

在窗口1的DataList的CurrentChanged事件中加入代码：

If forms("窗口2").Opened '如果窗口2打开了 Then
Dim dr As DataRow = e.Form.Controls("DataList1").Current '取得窗口1选择的员工行
Forms("窗口2").Controls("DataList1").RowFilter = "[工号] = '" & dr("工号") & "'"
End If

狐狸爸爸

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47521 积分：251552 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/7 19:04:00 [显示全部帖子]

Dim dr As DataRow = e.Form.Controls("DataList1").Current '取得窗口1选择的员工行
If forms("档案关联").Opened Then '如果窗口2打开了
Forms("档案关联").Controls("DataList1").RowFilter = "[工号] = '" & dr("工号") & "'"
End If

If forms("档案关联").Opened Then '如果窗口2打开了
Forms("档案关联").Controls("DataList2").RowFilter = "[工号] = '" & dr("工号") & "'"
End If

If forms("工资列表").Opened Then '如果窗口2打开了
Forms("工资列表").Controls("DataList1").RowFilter = "[工号] = '" & dr("工号") & "'"
End If

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47521 积分：251552 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/5/7 19:38:00 [显示全部帖子]

还可以：

Dim dr As DataRow = e.Form.Controls("DataList1").Current
If forms("档案关联").Opened Then
Forms("档案关联").Controls("DataList1").RowFilter = "[工号] = '" & dr("工号") & "'"
Forms("档案关联").Controls("DataList2").RowFilter = "[工号] = '" & dr("工号") & "'"
End If

If forms("工资列表").Opened Then
Forms("工资列表").Controls("DataList1").RowFilter = "[工号] = '" & dr("工号") & "'"
End If

下一主题 >> << 上一主题

主题：请教:二个DataList如何显示关联?