主题：动态加载关联记录,请各位帮忙一下,谢谢!

1、Datalist 已经不提倡使用了，建议用窗口中的Table。
2、现在好像也没有RelationTable了吧。
3、你这是老项目修改来的，有些窗口控件在控件列表中还有，实际已经没有了，如：Label17。

不过双击代码改为这样还是可以执行的：

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim dr as DataRow = dst.Current '获得选定行
If dr Is Nothing Then
    Return
End If
Dim Index As Integer = Tables("出库主表").FindRow(dr)
If Index >=0 Then
    Tables("出库主表").Position = Index
    Forms("出库主表编辑").Show()
End If

DataTables("出库明细").LoadFilter = "[ID] <> 0  and [出库单号] =  '" & Tables("出库主表").current("出库单号") & "'"
DataTables("出库明细").Load

以下是引用woodiy在2009-10-20 12:32:00的发言：
Table没有双击属性，有什么办法解决呢?

Normal（作为副本）、SQLTable 和 SQLQuery型 的Table都有双击事件啊～