将 table 项列为 VB 的字符串

Question

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

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

您正在覆盖每个循环迭代中的每个文本框变量。

将“=”更改为“+=”以获取所有项目，如有必要，添加分隔符。

Answer 2

如果您想在一个带分隔符的文本框中显示所有记录 |
使用：

   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

我还是不明白你想要什么：
+--------------------+------------------------ ---+--------------------+
|名称 1 |姓名2 |姓名 3 | Val 1 Val2 Val3|sort1 sort2 sort3|

或者你想要
姓名1 | val1 |排序 1 |
姓名2 |值2 |排序2 |
等..

将 table 项列为 VB 的字符串

Listing table items as String for VB

mysql

vb.net

vba

visual-studio-2012