0

我是 vb2010 的新手，并且通过谷歌搜索我以前的所有问题都取得了成功，但是我无法对此产生任何影响，所以我正在寻找有关正确语法的一些帮助。

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'IRuleDataSet.Stnds' table. You can move, or remove it, as needed.
        Me.StndsTableAdapter.Fill(Me.IRuleDataSet.Stnds)


        'Populates listbox1 with data from iRuleDataSet table
        ListBox1.DataSource = IRuleDataSet.Stnds
        ListBox1.DisplayMember = "Standards"
        ListBox1.SelectedIndex = 0

    End Sub


    Private Sub StndsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.StndsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.IRuleDataSet)

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Label2.Text = ListBox1.Text & " IRule"
'~~>This is where I am stuck
'~~>    TextBox1.Text = IRuleDataSets.Stnds.IRule.ListBox1.SelectedIndex bah i can't get this ):
    End Sub
End Class

在表格 2 中，我已将访问数据库加载到标记为 IRuleDataSet.Stnds 的数据集中

表 = 标准

字段 = IRule

记录位置 = ListBox1.SelectedIndex

什么是正确的语法或命名约定/逻辑，以在字段中具有记录位置的相应文本：用户在 ListBox1 中选择以显示在 TextBox1 中的“IRule”？

这不适用于任何教育科目或类似的东西。这只是我自己的一个学习练习，可以为我的工作中当前在一个过于复杂的 xls 文件中完成的计算组合一个 GUI，所以任何帮助都将不胜感激。我不知道对我来说是否为时已晚，但我似乎无法找到正确的方法来处理这个看似简单的任务。

谢谢

4

1 回答 1

0

啊哈！

果然，只要我发布一个问题，我就会找到正确的解决方案

TextBox1.Text = IRuleDataSet.Stnds(ListBox1.SelectedIndex)(2).ToString

这是做什么的，它将 TextBox1 文本设置为查看导入的访问文件（如 IRuleDataSet.Stnds），然后查看“行”（ListBox1.SelectedIndex），然后查看列号（2）。我知道这是 2，因为当我将我的虚拟数据放入数据库时​​，感兴趣的字段是第二列。

我希望这有助于未来的谷歌员工（：

于 2013-09-22T05:37:57.647 回答