Devexpress LookUpEdit控件， 使用List类(自定义Class,多字段列)，无法绑定列(有记录行，但都为空白行)
描述如下：1.Devexpress LookUpEdit控件，使用List类用于数据列表信息绑定，使用自定义Class,多字段列代码如下：
Public Class UserArrayList
Private VAL000 As Long
Private VAL001 As String
Private VAL002 As String
Sub New(Optional xV000 As Long = 0, Optional xV001 As String = "", Optional xV002 As String = "" )
Me.VAL000 = xV000
Me.VAL001 = xV001
Me.VAL002 = xV002
End Sub
End Class
2.窗体中有Devexpress LookUpEdit控件，数据加载代码如下：
Private Sub But_A04_Click(sender As Object, e As EventArgs) Handles But_A04.Click
Dim xList As New List(Of UserArrayList)
xList.Add(New UserArrayList(1, "王一", "男"))
xList.Add(New UserArrayList(2, "李二", "女"))
xList.Add(New UserArrayList(3, "张三", "男"))
xList.Add(New UserArrayList(4, "赵四", "女"))
LookUpEdit1.Properties.DataSource = xList
LookUpEdit1.Properties.NullText = ""
LookUpEdit1.Properties.DisplayMember = "VAL001"
LookUpEdit1.Properties.ValueMember = "VAL000"
Dim xLookupCol As DevExpress.XtraEditors.Controls.LookUpColumnInfo
xLookupCol= New DevExpress.XtraEditors.Controls.LookUpColumnInfo
xLookupCol.FieldName = "VAL000"
xLookupCol.Caption = "ID"
LookUpEdit1.Properties.Columns.Add(xLookupCol)
xLookupCol= New DevExpress.XtraEditors.Controls.LookUpColumnInfo
xLookupCol.FieldName = "VAL001"
xLookupCol.Caption = "姓名"
LookUpEdit1.Properties.Columns.Add(xLookupCol)
xLookupCol= New DevExpress.XtraEditors.Controls.LookUpColumnInfo
xLookupCol.FieldName = "VAL002"
xLookupCol.Caption = "性别"
LookUpEdit1.Properties.Columns.Add(xLookupCol)
End Sub
3.以上运行结果：【LookUpEdit1】列表中，显示4行记录，但是3列全为空白，应当未绑定成功列字段
求助，不知道哪出了问题！谢谢！
