Question

我一直试图将表格中的结果作为字符串输出一段时间。每当我在表中使用查询并调用字段表适配器时，它将始终显示外键约束异常。我删除了所有要测试的主键和外键，但它仍然显示相同的异常。我已尝试使用此代码输出到文本框：

Public Sub listfields()

    Dim ds As New DataSet
    Dim dt As DataTable = ds.Tables.Item("")
    Dim fieldname As String = Field_nameComboBox.SelectedItem
    dt = FieldvalueTableAdapter.GetData
    Dim i As Integer = 0

    While i < dt.Rows.Count
        txtbx_field_list.Text = dt.Rows(i).Item("field_name")
        txtbx_field_list2.Text = dt.Rows(i).Item("field_value")
        txtbx_field_list3.Text = dt.Rows(i).Item("sort_priority")

        i += 1
    End While
End Sub

但是，这仅显示数组中的最后一项。有没有办法使用查询输出我想要的数据作为字符串或将结果放入字符串的方法？

谢谢。

Answer 1

在每次循环迭代中，您将覆盖每个文本框变量。

更改＆＃39; =＆＃39;到＆＃39; + =＆＃39;得到所有物品，如有必要，添加分隔符。

Answer 2

如果要在带有分隔符|的一个textBox中显示所有记录
使用：

   Dim i As Integer = 0

While i < dt.Rows.Count - 1
    txtbx_field_list.Text  += " | " & dt.Rows(i).Item("field_name") & " | " & Environment.NewLine
    txtbx_field_list2.Text += " | " & dt.Rows(i).Item("field_value") & " | " & Environment.NewLine
    txtbx_field_list3.Text += " | " & dt.Rows(i).Item("sort_priority") & " | " & Environment.NewLine

    i += 1
End While

或者你想要 Name1 | val1 | sort1 |
Name2 | val2 | sort2 |
等.. ..

将表项列为VB的String

2 个答案: