Visual Basic

...
For each r as Datarow in ds.Tables(0).Rows
...

<br />
 Dim Amount As Double = 0<br />
<br />
            For Each dr As DataRow In ds.Tables(0).Rows<br />
<br />
                dr = dr + ds.Tables(0).item("Amount")<br />
<br />
            Next<br />
            Me.Text = ("My Balance $") & ("Amount").ToString<br />

Dim Amount As Double = 0
For Each dr As DataRow In ds.Tables(0).Rows
    Amount += dr.Item("Amount")
Next
Me.Text = "My Balance $" & Amount.ToString()

Dim io As MemoryStream = New MemoryStream<br />
Dim SdServerSend As SerialClass.SerialDataPack = new SerialClass.SerialDataPack<br />
<br />
'-- set .plcname in serialized packet<br />
SdServerSend.PLCname = Form1.stTelemeOut.PLCname<br />
<br />
Dim Bf As BinaryFormatter = New BinaryFormatter<br />
            <br />
'-- convert the file to send to a byte array<br />
Dim Br As New BinaryReader(File.OpenRead(filepath))<br />
Dim bytes() As Byte = Br.ReadBytes(Br.BaseStream.Length)<br />
Br.Close()<br />
<br />
'-- copy array to .file<br />
SdServerSend.File = bytes<br />
<br />
'-- serialize class to IO stream<br />
Bf.Serialize(io, SdServerSend)<br />
          <br />
'-- writes IO to hdd<br />
Dim BW As New BinaryWriter(File.OpenWrite("C:\PLC\Listener\Received\temptest " & SdServerSend.Reason.ToString & " " & EventCounter & ".bin"))<br />
BW.Write(io.GetBuffer, 0, io.Length)<br />
BW.Close()<br />
<br />
'-- reset io.postion to 0<br />
io.Position = 0<br />
<br />
'-- send serialized data to listener<br />
Form1.ClientSocket.Send(io.GetBuffer, io.Length, 0)