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

我试试,先谢谢贺老师!

成功了,我的代码如下:

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

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

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

结论如下:二楼和十楼的代码配合使用才能达到我的要求,呵呵,再次感谢二位教师!

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

还可以：

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

15楼的更好,呵呵