问题描述
（改版后的问题）
我需要格式化RPG Web服务的输入数据结构。我尝试使用列表，但它不起作用。当我尝试此代码时：
Dim clist As New List(Of LabelView.PASSBACK.dscustomers)
clist.Add(New LabelView.PASSBACK.dscustomers() With {.BALANCEDUE = 185.42,.CREATIONDATE = 20200101,.CUSTOMERID = 1,.CUSTOMERTYPE = "ACTIVE",.FirsTNAME = "Pat",.LASTNAME = "Smith"})
clist.Add(New LabelView.PASSBACK.dscustomers() With {.BALANCEDUE = 185.42,.CUSTOMERID = 2,.FirsTNAME = "Jordan",.LASTNAME = "Jones"})
input.DSCUSTOMERS = clist
// ^^ Intellisense error:
// Value of type 'List (Of dsCustomers)' cannot be converted to 'dscustomers()'.
我不知道如何以编程方式构建兼容的东西。当我尝试这个：
Dim client As PASSBACK.PASSBACK = New PASSBACK.PASSBACK()
Dim input As PASSBACK.passbackInput = New PASSBACK.passbackInput
input.DSCUSTOMERS(0).FirsTNAME = "Hello"
它可以编译，但是当我运行时，我得到“对象引用未设置为对象的实例。”
解决方法
此行的问题：
input.DSCUSTOMERS = clist
是因为DCUSTOMERS是一个数组（错误消息的“ dcustomers（）”），而List(Of dcustomer)不能直接分配给数组。
List(Of T)上有一个转换函数，它将给您一个名为T()的数组ToArray。只需对您的代码进行少量更改：
input.DSCUSTOMERS = clist.ToArray()
这将创建一个新数组，其内容与List相同（如果dcustomers是Class，则该数组的内容将是完全相同的对象，而如果是Structure，然后将它们复制）并将其分配给DCUSTOMERS。