Visual Basic

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

SELECT Primary_ID, Boundary_area, Attrib_Code, Lis_Key, Func_Key, Actual_Extent, Improved_Value, Site_Value, Purchase_price, Purchase_date, prop_id, confidence_score, fin_ls_prediction, new_lis_key, new_func_key, Tshwane_Prediction FROM Property_mass WHERE (SUBSTRING(Lis_Key, 1, 4) = @Lis_key)

Public Function GetdataProperties_lissearch(ByVal strSearched As String) As Dataset<br />
<br />
        Dim dsdata As dssearchlis<br />
<br />
        Try<br />
            dsdata = New dssearchlis<br />
            dasearchlis.Fill(dsdata)<br />
<br />
        Catch ex As SqlClient.SqlException<br />
            MsgBox(ex.Message)<br />
        End Try<br />
<br />
        Return dsdata<br />
<br />
    End Function<br />
<br />