Question

我是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的DataSet中

表= Stnds

Field = IRule

记录位置= ListBox1.SelectedIndex

在Field中为记录位置提供相应文本的正确语法或命名约定/逻辑是什么：用户在ListBox1中选择要在TextBox1中显示的“IRule”？

这不适用于任何教育科目或类似的东西。对于我来说，这仅仅是一个学习练习，可以将我目前在我工作中过于复杂的xls文件中进行计算的GUI组合在一起，所以任何帮助都会受到赞赏。我不知道这对我来说是否已经太晚了，但我似乎无法找到正确的方法来处理这个看似简单的任务。

谢谢

Answer 1

AHA！

一旦我发布问题我就找到了正确的解决方案

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

这样做，它设置TextBox1文本以查找导入的访问文件（作为IRuleDataSet.Stnds），然后查看'row'（ListBox1.SelectedIndex），然后查看列号（2）。我知道这是2，因为当我在数据库中输入我的虚拟数据时，感兴趣的领域是第二列。

我希望这有助于未来的googlers（：

vb2010 - 来自MS Access记录的TextBox1.Text

1 个答案: