Hi Tony,
I did make this morning this sample here beneath, there should be the
answers on your questions in and as well a lot of your next answers on your
questions,
I hope this helps?
Cor
\\\Needs one datagrid and one button on a form
Private ds As New DataSet
Private WithEvents cma As CurrencyManager
Private dv As DataView
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Click me to show"
Dim dt As New DataTable("MyTable")
ds.Tables.Add(dt)
dt.Columns.Add("Streets")
DataGrid1.AllowSorting = False
Dim mystring() As String = {"Highfield Road", _
"Abbey(Close)", "Bower(Way)", "Roadway To Hell"}
For i As Integer = 0 To mystring.Length - 1
Dim dr As DataRow = dt.NewRow
dr(0) = mystring(i)
dt.Rows.Add(dr)
Next
dv = New DataView(ds.Tables(0))
cma = DirectCast(BindingContext(dv), CurrencyManager)
DataGrid1.DataSource = dv
Dim ts As New DataGridTableStyle
ts.MappingName = "MyTable"
Dim column As New DataGridTextBoxColumn
column.TextBox.MaxLength = 50
column.MappingName = "Streets"
column.HeaderText = "My streets"
column.Width = 150
column.NullText = ""
ts.GridColumnStyles.Add(column)
DataGrid1.TableStyles.Add(ts)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(dv(cma.Position) _
(DataGrid1.CurrentCell.ColumnNumber).ToString)
End Sub
///
