主题：窗口加载时，动态建立关联出错-附上示例项目

'动态关联

If Relations.Contains("关联1") = False Then

Relations.Add("关联1",DataTables("箱型").DataCols("箱型id"),dt.DataCols("箱型id"),RelationPathEnum.None)

dt.DataCols("箱型编码").Expression = "Parent(关联1).箱型编码"

dt.DataCols("箱型").Expression = "Parent(关联1).箱型"

End If 

If Relations.Contains("关联2") = False Then

Relations.Add("关联2",DataTables("楞别").DataCols("楞别id"),DataTables("纸质").DataCols("楞别id"),RelationPathEnum.None)

DataTables("纸质").DataCols("楞别").Expression = "Parent(关联2).楞别"

End If

If Relations.Contains("关联3") = False Then

Relations.Add("关联3",DataTables("纸质").DataCols("纸质id"),dt.DataCols("纸质id"),RelationPathEnum.None)

dt.DataCols("楞别").Expression = "Parent(关联3).楞别"

dt.DataCols("纸质").Expression = "Parent(关联3).纸质"

End If

If Relations.Contains("关联4") = False Then

Relations.Add("关联4",DataTables("纸质查询").DataCols("纸质id"),dt.DataCols("纸质id"),RelationPathEnum.None)  '纸质查询是一查询表

dt.DataCols("调整纸质").Expression = "Parent(关联4).纸质"

End If 

'动态关联