Posts by VIPER5646

I solved.
Instead of using add I used Insert, to insert the empty row.

Thanks rproffitt
after removing sp21 and updated the references the reports from both apps work fine.

Hi all
I have a datagridview with 2 columns.
fist column is Datagridview combobox the second is a datagridtextbox.
I'm trying to fill the second column based on the combobox selection .
The Method that captures the selected item does not track which row is being edited.
I have tried using the Mouse up and Cell edit events but they were unsuccessful.
This is the code that I use to capture which item has been selected.

Private Sub DGV_LinesItem_EditingControlShowing(ByVal sender As System.Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles DGV_LinesItem.EditingControlShowing
        Dim editingComboBox As ComboBox = e.Control
        AddHandler editingComboBox.SelectedIndexChanged, AddressOf Me.editingComboBox_SelectedIndexChanged
    End Sub
    Private Sub editingComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        If IsNumeric(CType(sender, ComboBox).SelectedValue) Then
            Me.Selecteditem = CType(sender, ComboBox).SelectedIndex
        End If
    End Sub

This application was sending out orders without errors when smtp wasn't secured.
Now the clients webmail server was changed to ssl.
After making the changes the server times out.
I did some research and found this .ConnectType = SmtpConnectType.ConnectSSLAuto
I'm anable to assign the SmtpServer.ConnectType = SmtpConnectType.ConnectSSLAuto.

This is my code.

Dim SmtpServer As New SmtpClient()
        Dim mail As New MailMessage()
            SmtpServer.UseDefaultCredentials = False
            SmtpServer.Credentials = New Net.NetworkCredential(jonDoe@Domain.com, srvPass)
            SmtpServer.Port = 465
            SmtpServer.Host = mail.Domain.com
            SmtpServer.EnableSsl = true
            mail = New MailMessage With {.From = New MailAddress(frome)
        }
            mail.To.Add(Too)
            mail.Subject = Subject
            mail.Body = InputBox("Enter the body here", "Body")
            For Each Row In attch_tbl.Rows
                OE_File = Row("OE").ToString.TrimStart("0c")
                OE_File = "*" & OE_File & "*"
                For Each foundFile As String In My.Computer.FileSystem.GetFiles("N:\",
        Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, OE_File)
                    If foundFile <> "" Then
                        mail.Attachments.Add(New Attachment(foundFile))
                        FileNum = FileNum + 1
                    End If
                Next
            Next
            If FileNum >0 Then
                SmtpServer.Send(mail)
               end if

thanks rproffitt
the links helped.
Here is my new format

lblCustDate.Text = Now().ToString("MMM-dd-yy")