Dim objt As New List(Of Email) Dim objbus As New Email objt = objbus.Get_Email() If objt.Count <> 0 Then For Each objbus In objt TxtTo.Text = objbus.Emaill Next End If
Public Function Get_Email() As List(Of Email) Dim objtela As New CData Dim objfem As New List(Of Cparameter) Dim objda As New List(Of Email) Dim dr As IDataReader dr = objtela.executespreturndr("E_Stud", objfem) Using dr While (dr.Read) Dim par As New Email populate_email(dr, par) objda.Add(par) End While End Using Return objda End Function Public Sub populate_email(ByVal dr As IDataReader, ByVal objwena As Email) objwena.Emaill = dr.GetString(0) End Sub
TxtTo.Text += objbus.Emaill +","
String.Concat
StringBuilder
.Net
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)