我在用数据加载 CheckBoxList 时遇到了一些问题。我在 DisplayMember 和 ValueMember 上遇到了一些错误。
这是我的鳕鱼:。
Protected Sub LoadCBMembers(ByVal objDeptGUID As String)
Try
Dim myCBTable As New DataTable()
With myCBTable.Columns
.Add("DisplayName", GetType(String))
.Add("TextValue", GetType(String)) '<<<< change the type of this column to what you actually need instead of integer.
End With
Dim lqMembers As New lqFireFighterConnectDataContext
Dim GetMembers = From r In lqMembers.tbUsers
Where r.DeptGUID = objDeptGUID And r.TextFLag = True
Select r
If GetMembers.Count = 0 Then
Exit Sub
End If
For Each foundMember In GetMembers
myCBTable.Rows.Add(foundMember.FirstName & " " & foundMember.LastName, foundMember.CellPhone & "@" & foundMember.PhoneCarriers)
' cbMembers.Items.Add(foundMember.FirstName & " " & foundMember.LastName)
Next
With cbMembers
.DataSource = myCBTable
.DisplayMember = "DisplayName"
.ValueMember = "TextValue"
End With
Catch ex As Exception
End Try
End Sub