我的代码如下:
Using _EntityModel As New AboveNemaSalesDatabaseEntities()
Dim _SelectActiveOptionCodes = (From _OptCodes In _EntityModel.tblOptionCodes
Where _OptCodes.fdStatus = "A"
Select _OptCodes.fdDescription, _OptCodes.fdOptionCode).ToList()
Dim _SelectActiveOptionCodes2 = (From _OptCodes In _EntityModel.tblOptionCodes
Where _OptCodes.fdStatus = "A"
Select New optionCodes With {.description = _OptCodes.fdDescription,
.optionCode = _OptCodes.fdOptionCode})
sortableOptionCodes = _SelectActiveOptionCodes2
sortedOptionCodes = _SelectActiveOptionCodes2
OptionCodeListBox.DataSource = sortedOptionCodes
OptionCodeListBox.DisplayMember = "fdDescription"
OptionCodeListBox.ValueMember = "fdOptionCode"
End Using
第一个查询工作正常并返回格式为[index] {description =" descritption here&#34 ;, optionCode ="选项代码在这里"}
第二个查询创建但是当它被调用以保存到我的自定义类时,程序退出子或吞下一个错误。单步执行代码,行以sortedOptionCodes开头,之后从不运行。
答案 0 :(得分:0)
我正在处理的主要问题是我的查询生成了一个optionCodes列表,而我的变量没有准备好存储它。
旧变量:
Dim sortableOptionCodes As optionCodes
Dim sortedOptionCodes As optionCodes
新变量:
Dim sortableOptionCodes As List(Of optionCodes)
Dim sortedOptionCodes As List(Of optionCodes)
我还在第二个查询的末尾添加了一个.ToList()函数。