Visual Basic

Bert Mitton wrote:

That said, now you've made me hungry for a burger.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

Dim ct_BundleBalanceDetails As WEB_APIs_SCBF.BundleBalanceDetailsComplexType() = Nothing

<!-- Start of BundleBalance  API -->
<!-- soap:Body of BundleBalanceRequest  message -->
<xs:element name="BundleBalanceRequest">
    <xs:complexType>
        <xs:sequence>
            <xs:element name="Interface" type="tns:InterfaceSimpleType"/>
            <xs:element name="MSISDN" type="xs:string"/>
        </xs:sequence>
    </xs:complexType>
</xs:element>
<!-- soap:Body of BundleBalanceResponse message -->
<xs:element name="BundleBalanceResponse">
    <xs:complexType>
        <xs:sequence>
            <xs:element name="ResponseCode" type="xs:integer"/>
            <xs:element name="ResponseData">
                <xs:complexType>
                    <xs:sequence>
                        <xs:element name="BundleBalanceDetails" type="tns:BundleBalanceDetailsComplexType" minOccurs="0" maxOccurs="unbounded"/>
                    </xs:sequence>
                </xs:complexType>
            </xs:element>
        </xs:sequence>
    </xs:complexType>
</xs:element>

txtName.Text = DirectCast(tRow("Name"), String)

or 

txtName.Text = DirectCast(tRow(0), String)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim dt As New DataTable
  With dt
    .Columns.Add("Name")
    .Columns.Add("Address")
    .Columns.Add("Salary")
    .Rows.Add(New Object() {"John", "123 Some Street", 1234})
    .Rows.Add(New Object() {"Frank", "15 TheOther Street", 1400})
    .Rows.Add(New Object() {"Harry", "3 No Street", 450})
  End With

  Dim dr As DataRow = GetDataRow(dt, "John")
  Label1.Text = String.Format("Name = {0}{3}Address = {1}{3}Salary = {2}",
				 dr("Name").ToString, dr("Address").ToString, dr("Salary").ToString, vbCrLf)
End Sub

Private Function GetDataRow(ByVal dt As DataTable, ByVal name As String) As DataRow
  Dim sStringTemp2 = "Name = '" + name + "'"
  Dim tRow As DataRow() = dt.Select(sStringTemp2)
  Return tRow(0)
End Function

JRHibner wrote:

I noticed you put tRow(0).

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim dt As New DataTable
		With dt
			.Columns.Add("Id")
			.Columns.Add("Name")
			.Columns.Add("Address")
			.Columns.Add("Salary")


			.Rows.Add(New Object() {1, "John", "123 Some Street", 1234})
			.Rows.Add(New Object() {Nothing, "Sally", "26 This Street", Nothing})
			.Rows.Add(New Object() {3, "Frank", "15 TheOther Street", 1400})
			.Rows.Add(New Object() {4, "Harry", "3 No Street", 450})


		End With

		Dim dr As DataRow = GetDataRow(dt, "Sally")

		Dim id As Integer = -1
		If Not TypeOf (dr("Id")) Is DBNull Then
			id = CInt(dr("Id"))
		End If

		Try
			Label1.Text = String.Format("ID = {0}{4}Name = {1}{4}Address = {2}{4}Salary = {3}", id.ToString,
                                                          dr("Name").ToString, dr("Address").ToString, dr("Salary").ToString, vbCrLf)
		Catch ex As Exception

		End Try



		Label2.Text = String.Format("Field 0 contains: {0}", dr(0).GetType)
		If (TypeOf (dr("Id")) Is DBNull) Then
			Label3.Text = "DBNull in Field 0"
		End If

	End Sub

	Private Function GetDataRow(ByVal dt As DataTable, ByVal name As String) As DataRow
		Dim sStringTemp2 = "Name = '" + name + "'"
		Dim tRow As DataRow() = dt.Select(sStringTemp2)
		Return tRow(0)

	End Function
End Class

JRHibner wrote:

I want to be able to check and make sure the Name isn't already used in the
datatable

If tRow.Count > 0 Then
  ' Name exists
Else
  ' Name doesn't exist
End If