Visual Basic

If e.ColumnIndex = 0 Then<br />
        indexcombo = CType(Me.dgvTipuriColoane.Rows(e.RowIndex).Cells(e.ColumnIndex), DataGridViewComboBoxCell).Items.IndexOf(Me.dgvTipuriColoane.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString)<br />
    End If<br />
    valoareCombo = Me.dgvTipuriColoane.Rows(e.RowIndex).Cells(e.ColumnIndex).Value

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   if lstCust.Items.Count<>0 then
      txtCustID.Text = lstCust.Items(0).Item(0).Text
      txtCompName.Text = lstCust.Item(0).SubItems(1).Text
      ...
   end if
End sub

With Me
...
End With

Private Function JoinArrays(Array1() as string, Array2() as string) as string()<br />
  dim Array3() as string<br />
  for count as integer = 0 to Array1.length - 1<br />
    Array3(count)=Array1(count)<br />
  next count<br />
<br />
  for count =0 to array2.length - 1<br />
    array3(array1.length+count)=array2(count)<br />
  next count<br />
  return array3<br />
End Sub

Public Shared Function JoinStringArrays(ByVal source1 As String(), ByVal source2 As String()) As String()
    Dim newArray(source1.Length + source2.Length - 1)
    source1.CopyTo(newArray, 0)
    source2.CopyTo(newArray, source1.Length)
    return newArray
End Function

Vuyiswamb wrote:

i would like to know how to design a Function that accept parameters and return a dataset. Inputs are from a textbox.

Public Function MyFunction(someText As String) As DataSet
    Dim result As DataSet 
    ' Do stuff to generate the dataset and assign it to result
    Return result
End Function