为ATM创建显示代码

Question

编写的这段代码使这些声明能够进入ListBox，但不幸的是，当它运行时，它只显示帐户号，而不显示任何其他内容。我想找出我做错了什么，但却搞不清楚。

Dim Loan As Decimal
Dim Account_Number, CustomerName, OpeningBalance, CurrentBalance, Loan_Taken, Amount_of_Loan, Amount_Deposited As String

If OneAccount.LoanTaken Then
    Loan = OneAccount.CustomerLoan

    Account_Number = TextBox1.Text
    CustomerName = TextBox2.Text
    OpeningBalance = Val(TextBox3.Text)
    CurrentBalance = Val(TextBox3.Text) - Val(TextBox5.Text)
    Label8.Text = CurrentBalance
    If CheckBox1.Checked = True Then
        Loan_Taken = "Yes"
    Else
        Loan_Taken = "No"
    End If
    Amount_of_Loan = Format(Loan, "Currency")
    Amount_Deposited = Label8.Text
    Amount_Deposited = Amount_Deposited
    Amount_Deposited = Format(Amount_Deposited, "Currency")

    ListBox2.Items.Add(String.Format(Account_Number, CustomerName, OpeningBalance, CurrentBalance, Loan_Taken, Amount_of_Loan, Amount_Deposited))
End If

Answer 1

问题是这条线

ListBox2.Items.Add(String.Format(Account_Number, CustomerName, OpeningBalance, CurrentBalance, Loan_Taken, Amount_of_Loan, Amount_Deposited))

以下是String.Format：https://msdn.microsoft.com/en-us/library/system.string.format(v=vs.110).aspx的文档

我不确定你到底是如何格式化它的，但是，你可以简单地做

ListBox2.Items.Add(Account_Number + " " + CustomerName + " " + OpeningBalance + " " + CurrentBalance + " " + Loan_Taken + " " + Amount_of_Loan + " " + Amount_Deposited)

它将将所有项目添加到列表框中，在列表框之间有一个空格。

Answer 2

您需要更改将项添加到ListBox2中的行。将String.Format更改为String.Join如下：

String.Join(" ", Account_Number, CustomerName, OpeningBalance, CurrentBalance, Loan_Taken, Amount_of_Loan, Amount_Deposited)

这将把所有的值与中间的一个空格连接起来。

String.Format()不能工作，因为它将一个字符串作为第一个参数，下面的所有参数都将插入到第一个字符串中，如下所示：

String.Format("Name: {0}, Age: {1}", "John", 20)
' "Name: John, Age: 20"

所以要么是String.Concat()，要么是String.Join()。

String.Concat("Hello", "World", "!) ' "HelloWorld!"
String.Join(", ", "0", "1", "2", "3") ' "0, 1, 2, 3"