【发布时间】:2015-04-15 13:20:25
【问题描述】:
retrieveFixtureReport() 函数返回一个报表列表,每个报表都包含一个 PlayerID。我正在尝试设置我的标签以反映从 cmbSelectedPlayer 中选择的选定报告。列表中的每个报告都包含一个唯一的 PlayerID。我尝试了各种不同的方法来访问所选报告的属性,包括 LINQ,但到目前为止都没有成功。 For Each 循环似乎不是仅选择一个报告的正确选项,它还阻止我从 cmbSelectedPlayer 中选择其他 PlayerID(仅显示列表中的最后一个报告)。代码如下:
Public Sub setFixtureReport()
'If UC_Menu_Scout1.cmbSelectedPlayer.SelectedItem IsNot Nothing Then
If UC_Menu_Scout1.cmbSelectedPlayer.Items.Count > 0 Then
Dim getPlayerReport = _
(From rpt As Report In retrieveFixtureReport() _
Where rpt.PlayerID = UC_Menu_Scout1.cmbSelectedPlayer.SelectedItem.PlayerID) '.AsEnumerable
'For Each rpt As Report In getPlayerReport()
'For Each rpt As Report In retrieveFixtureReport.Where(Function(x) x.PlayerID = UC_Menu_Scout1.cmbSelectedPlayer.SelectedItem.PlayerID)
'Dim rpt As Report = getPlayerReport 'retrieveFixtureReport(0)
'*****General Information
UC_Menu_Scout1.lblRptPosition.Text = rpt.PositionPlayed
UC_Menu_Scout1.lblFoot.Text = rpt.PreferredFoot
UC_Menu_Scout1.txtComments.Text = rpt.Comments
UC_Menu_Scout1.lblStatus.Text = rpt.MonitorStatus
'Next
setColours()
'End If
End If
End Sub
组合框 cmbSelectedPlayer 由 playerList 填充(这也添加到了 retrieveFixxtureReport 中):
UC_Menu_Scout1.cmbSelectedPlayer.DataSource = playerList
UC_Menu_Scout1.cmbSelectedPlayer.DisplayMember = "PlayerFullName"
UC_Menu_Scout1.cmbSelectedPlayer.ValueMember = "PlayerID"
任何建议将不胜感激。
【问题讨论】:
-
你能展示如何加载组合框吗?
-
我已编辑问题以显示组合框的填充方式。