Vb.net 使用LINQ将自定义子值获取到网格中

我有以下三张桌子

耐心合格性

耐心合格服务项目

服务项目

表之间的关系如下所示：

dt = CreateDT("Code", "Description")
 If PatientEligibilityObject.PatientsEligibilitiesServiceItems.Count > 0 Then
         For Each LST In PatientEligibilityObject.PatientsEligibilitiesServiceItems  
           Dim res = HMSData.ServiceItems.Single(Function(ds) ds.ID = LST.ServiceItemID)
           dt.Rows.Add(res.Code, res.EngName)
         Next
 Else
        dt.Rows.Add("", "")
 End If
       uwg.DataSource = dt

uwg.DataSource = PatientEligibilityObject.PatientsEligibilitiesDoctorsSpecialties.GetNewBindingList()  

一对多介于：PatientLigibility和PatientLigibility服务项目之间

一对一介于：耐心合格服务项目和服务项目

我检索到PatientLigibilityObject

我需要在表格中填入耐心合格服务项目

我做了以下工作：

dt = CreateDT("Code", "Description")
 If PatientEligibilityObject.PatientsEligibilitiesServiceItems.Count > 0 Then
         For Each LST In PatientEligibilityObject.PatientsEligibilitiesServiceItems  
           Dim res = HMSData.ServiceItems.Single(Function(ds) ds.ID = LST.ServiceItemID)
           dt.Rows.Add(res.Code, res.EngName)
         Next
 Else
        dt.Rows.Add("", "")
 End If
       uwg.DataSource = dt

uwg.DataSource = PatientEligibilityObject.PatientsEligibilitiesDoctorsSpecialties.GetNewBindingList()  

这个解决方案很有效。。但我相信这不是最好的，甚至不是好的

我尝试了以下方法：

dt = CreateDT("Code", "Description")
 If PatientEligibilityObject.PatientsEligibilitiesServiceItems.Count > 0 Then
         For Each LST In PatientEligibilityObject.PatientsEligibilitiesServiceItems  
           Dim res = HMSData.ServiceItems.Single(Function(ds) ds.ID = LST.ServiceItemID)
           dt.Rows.Add(res.Code, res.EngName)
         Next
 Else
        dt.Rows.Add("", "")
 End If
       uwg.DataSource = dt

uwg.DataSource = PatientEligibilityObject.PatientsEligibilitiesDoctorsSpecialties.GetNewBindingList()  

它给了我表格中的所有列。。像ServiceItemID和ServiceItem

但是我需要获取ServiceItem.Code和ServiceItem.EngName

---

我如何做到这一点？

我保留了这个解决方案，因为使用LINQ查询到网格的直接绑定将更加复杂