2013-09-22 65 views
0

我是vb2010的新手,已经成功地使用谷歌搜索所有我以前的问题,但这一个我不能做任何牵引,所以我正在寻找一些正确的语法帮助。vb2010 - 来自MS Access的TextBox1.Text记录

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中,我已加载的接入数据库到DataSet labeld IRuleDataSet.Stnds

表= Stnds

字段=的iRule

记录位置= ListBox1.SelectedIndex

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

这不适用于任何学校学科或类似的东西。这仅仅是一个学习练习,可以将我目前在我的工作中过于复杂的xls文件中完成的计算的GUI组合在一起,因此,任何帮助将不胜感激。我不知道对我来说是不是已经太迟了,但我似乎无法找到正确的方法来处理这个看似简单的任务。

谢谢

回答

0

AHA!

果然,当我张贴的问题,我找到正确的解决方案

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

这是什么一样,它设置TextBox1的文本中寻找到导入的访问文件(如IRuleDataSet.Stnds),然后看'行'(ListBox1.SelectedIndex),然后是列号(2)。我知道这是2,因为当我在数据库中输入我的虚拟数据时,感兴趣的领域是第二列。

我希望这可以帮助未来的googlers(: