请教前辈：在vb.net中该怎样设置才能在把DataGrid控件所选的数据和上方的文本框中的数据对应起来啊？谢谢！...

我以前用c#在vs2003中做了一个简单的管理系统方面的桌面程序，我现在正学着把它转化为vb.net的程序，见如下网址所示截图，可我不管怎样在DataGrid控件中选哪行文字，可上方的文本框中的数据总不跟着变化（可我用c#做的同样的程序是跟着变化的啊！！！），搞了我一整天都没解决这问题啊！（我用的是vs2003）请问：

1.是不是在vb.net中DataGrid控件的属性栏要做什么设置啊！要怎么设置才行啊？谢谢！
2.是不是我在后台中要加什么代码才行啊？如果是，前辈能不能帮我贴一段代码出来啊？我再试试！谢谢！

见如下网址所示截图 http://www.jzfybjy.com/liou123/sccx/uploadfile/def.jpg

Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim f As String
Dim g As String
Dim h As String
Dim i As String
Dim j As String
Dim k As String
Dim l As String
Dim m As Integer
Dim n As Integer

Dim o As String
Dim p As String
'Dim r As String
'Dim q As String
'Dim t As String
a = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)
b = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1)
c = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2)
d = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3)
f = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4)
g = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5)
h = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 6)
i = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 7)
j = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 8)
k = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 9)
l = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 10)
m = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 11)
n = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 12)
o = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 13)
p = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 14)
'q = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 15)
'r = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 16)
't = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 17)
ComboBox1.Text = a
TextBox1.Text = b
ComboBox2.Text = c
ComboBox3.Text = d
ComboBox4.Text = f
ComboBox5.Text = g
ComboBox6.Text = h
ComboBox7.Text = i
TextBox2.Text = j

TextBox3.Text = k
TextBox4.Text = l
TextBox6.Text = m
TextBox7.Text = n
ComboBox8.Text = o
TextBox5.Text = p

Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click
Dim i As Integer = DataGrid1.CurrentCell.RowNumber
DataGrid1.Select(i)
passwordtxt.Text = Me.DataGrid1.Item(i, 1).ToString
End Sub
自己试试看