Visual Basic

AdvantageSoft wrote:

What would be the best way to go about this?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Member 10192835 wrote:

the error comes "null exception handles"

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

If (dgvLorryMaster.Columns(e.ColumnIndex) = editbutton) AndAlso (currentrow >= 0) Then

If(dgvLorryMaster.Columns(e.ColumnIndex) = editbutton) AndAlso (currentrow >= 0)

Quote:

I m getting error that Operator '=' is not defined for types 'System.Windows.Forms.DataGridViewColumn' and 'System.Windows.Forms.DataGridViewButtonColumn'

Quote:

Dim currentrow As Integer = Integer.Parse(e.RowIndex.ToString())

Private Sub dgvLorryMaster_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvLorryMaster.CellContentClick
   ' e.Rowindex can = -1 if column header is clicked, 
   If e.RowIndex > -1 AndAlso (e.ColumnIndex = editbutton.Index OrElse e.ColumnIndex = delbutton.Index) Then
      Try
         Dim id As Int32
         ' extract the id value
         ' if the dgv is bound to a datatable, it could have dbnull for a cell value
         If dgvLorryMaster(2, e.RowIndex).Value IsNot DBNull.Value Then
            If dgvLorryMaster(2, e.RowIndex).ValueType Is GetType(Int32) Then
               id = DirectCast(dgvLorryMaster(2, e.RowIndex).Value, Int32)
            Else
               If Not Int32.TryParse(dgvLorryMaster(2, e.RowIndex).Value.ToString(), id) Then
                  Throw New InvalidCastException("can not extract ID")
               End If
            End If
         End If

         Select Case e.ColumnIndex
            Case editbutton.Index
               Displaylorry(id)
               'Dim datadeletelorry As New DataSet() ' **** what is this for ????

            Case delbutton.Index
               Dim num As DialogResult = MessageBox.Show("Are you want to delete the record !!!.", "", MessageBoxButtons.YesNo)
               If num = DialogResult.Yes Then
                  If lbll.deletelorry(id) Then
                     Cleartext()
                     MessageBox.Show("Deleted Successfully")
                     bindgrid()
                  End If
               Else
                  Cleartext()
               End If
         End Select
      Catch ex As Exception
         MessageBox.Show(ex.Message)
      End Try
   End If
End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
       If validateform() Then
           If id IsNot Nothing Then

               Dim result As Boolean = lbll.updatelorry(txtLcode.Text.Trim(), txtLno.Text.Trim(), txtDname.Text.Trim())
               If result = True Then
                   ClearText()
                   bindgrid()
                   id = Nothing
                   MessageBox.Show("Update Successfully")

               End If
           Else
               Dim result As Boolean = lbll.insertlorry(txtLcode.Text.Trim(), txtLno.Text.Trim(), txtDname.Text.Trim())
               If result = True Then
                   ClearText()
                   bindgrid()
                   MessageBox.Show("Created Successfully")
               End If
           End If
       End If
   End Sub

The method or operation is not implemented.

Public Function updatelorry(ByVal pkId As Integer, ByVal Lcode As String, ByVal Lno As String, ByVal Dname As String) As Boolean
            Try
                Dim param As SqlParameter() = New SqlParameter(3) {}
                param(0) = New SqlParameter("@pkid", pkId)
                param(1) = New SqlParameter("@lcode", Lcode)
                param(2) = New SqlParameter("@lno", Lno)
                param(3) = New SqlParameter("@dname", Dname)
                SqlHelper.ExecuteNonQuery(ConnectionString, CommandType.StoredProcedure, "updatelorry", param)
                Return True
            Catch
                Throw
            End Try
        End Function

Function updatelorry(ByVal p1 As String, ByVal p2 As String, ByVal p3 As String) As Boolean
           Throw New NotImplementedException--error shows here

       End Function

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
       If validateform() Then
           'If id IsNot Nothing Then
           If id = editbutton.Index Then

               Dim result As Boolean = lbll.updatelorry(txtLcode.Text.Trim(), txtLno.Text.Trim(), txtDname.Text.Trim())--Error Shows here
               If result = True Then
                   ClearText()
                   bindgrid()
                   id = Nothing
                   MessageBox.Show("Update Successfully")

               End If
           Else
               Dim result As Boolean = lbll.insertlorry(txtLcode.Text.Trim(), txtLno.Text.Trim(), txtDname.Text.Trim())
               If result = True Then
                   ClearText()
                   bindgrid()
                   MessageBox.Show("Created Successfully")
               End If
           End If
       End If
   End Sub

ALTER PROCEDURE [dbo].[updatelorry]
@lcode varchar(50),
@lno varchar(50),
@dname varchar(50),
@pkId int
AS
BEGIN
	update lorrymaster set LCode=@lcode,Lno=@lno,Dname=@dname
	where pkid=@pkId
	select  @pkId
END

CREATE TABLE [dbo].[lorrymaster](
    [pkid] [int] IDENTITY(1,1) NOT NULL,
    [lcode] [varchar](50) NULL,
    [lno] [varchar](50) NULL,
    [dname] [varchar](50) NULL,
    [createdate] [smalldatetime] NULL
) ON [PRIMARY]

GO
SET ANSI_PADDING OFF