如何使用逗号（＆＃34;，＆＃34;）将所有列表框项目保存为访问数据库作为一行中的分隔符

Question

我正在尝试创建一个vb.net应用程序，将病人的病史保存到数据库中。但我被困在如何将所有列表框项目保存到单行（使用逗号作为分隔符）。
我尝试使用此代码，但它只保存最后一条记录：

 Dim diagnosis As String
        For i As Integer = 0 To txtDiagnosis.Items.Count - 1
            diagnosis = String.Concat(txtDiagnosis.Items(i), ",")
        Next
            'Insert Query Here

我还希望最后一条记录后面没有逗号。提前致谢

Answer 1

使用transportModel.update( { ...your query here }, { $push: { vehicle:{ vehicleType:req.body['vehicleType'] } } }, done ); 功能。 String.Join(Of T) Method

String.Join

您可以将项目转换为字符串集合

Dim diagnosis As String = String.Join(", ", txtDiagnosis.Items)

对于Dim allDiagnosis = txtDiagnosis.Items.Select(Function(item) item.ToString()) Dim diagnosis As String = String.Join(", ", allDiagnosis) ，您需要将集合显式地转换为对象集合

ListBox.Items