locked
Disassembly cannot be displayed in run mode. RRS feed

  • Question

  • Please let me know the problem and solution of this situation.

    I having a form and a datagrid in that, its bonded to database. and when I click the cell its loaded the particular rows to below fields. here the code

    Private Sub ServiceDataGridView_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ServiceDataGridView.CellClick
            ServiceTableAdapter.FillBy(HoneyBDataSet.service, ServiceDataGridView.CurrentRow.Cells(0).Value)
            If HoneyBDataSet.service.Rows.Count = 1 Then
                sid = HoneyBDataSet.service.Rows(0).Item(0)
                d.Text = HoneyBDataSet.service.Rows(0).Item(1)
                rd.MinDate = HoneyBDataSet.service.Rows(0).Item(3)
                rd.Value = HoneyBDataSet.service.Rows(0).Item(3)
                srv.Text = HoneyBDataSet.service.Rows(0).Item(4)
                sp.ResetText()
                sp.Text = HoneyBDataSet.service.Rows(0).Item(5)
                c.Text = HoneyBDataSet.service.Rows(0).Item(6)
                usr.Text = HoneyBDataSet.service.Rows(0).Item(7)
                n.Text = HoneyBDataSet.service.Rows(0).Item(8)
                pt.Text = HoneyBDataSet.service.Rows(0).Item(9)
                pd.Value = HoneyBDataSet.service.Rows(0).Item(10)
                fb.Text = HoneyBDataSet.service.Rows(0).Item(17).ToString
                If fb.Lines.Length = 0 Then
                    fb.Text = fb.Text + "" & fb.Lines.Length + 1 & ") (" & Now.ToString("dd/MM/yyyy hh:mm:tt") & ") (" & usrname & "): "
                Else
                    fb.Text = fb.Text + Environment.NewLine + "" & fb.Lines.Length + 1 & ") (" & Now.ToString("dd/MM/yyyy hh:mm:tt") & ") (" & usrname & "): "
                End If
                fb.SelectionStart = fb.Text.Length
                Button1.Enabled = False
                r.Text = HoneyBDataSet.service.Rows(0).Item(16).ToString
                If r.Lines.Length = 0 Then
                    r.Text = r.Text + "" & r.Lines.Length + 1 & ") (" & Now.ToString("dd/MM/yyyy hh:mm:tt") & ") (" & usrname & "): "
                Else
                    r.Text = r.Text + Environment.NewLine + "" & r.Lines.Length + 1 & ") (" & Now.ToString("dd/MM/yyyy hh:mm:tt") & ") (" & usrname & "): "
                End If
                r.SelectionStart = r.Text.Length
                Dim rflg As Boolean = HoneyBDataSet.service.Rows(0).Item(12)
                Dim aflg As Boolean = HoneyBDataSet.service.Rows(0).Item(13)
                Dim pflg As Boolean = HoneyBDataSet.service.Rows(0).Item(15)
                Dim rjflg As Boolean = HoneyBDataSet.service.Rows(0).Item(18)
                If rflg = True And rjflg = False And pflg = False And aflg = False Then
                    If lvl = "Director" Or lvl = "Manager" Then
                        Button3.Enabled = True
                        Button4.Enabled = True
                        r.Enabled = True
                    Else
                        Button3.Enabled = False
                        Button4.Enabled = False
                        r.Enabled = False
                    End If
                    Button2.Enabled = False
                    Button5.Enabled = False
                    Button1.Enabled = False
                    Button8.Enabled = False
                    fb.Enabled = False
                ElseIf rflg = False And rjflg = False And pflg = False And aflg = False Then
                    Button2.Enabled = True
                    Button3.Enabled = False
                    Button5.Enabled = False
                    Button8.Enabled = False
                    Button1.Enabled = False
                    If lvl = "Director" Or lvl = "Manager" Then
                        Button4.Enabled = True
                        r.Enabled = True
                    Else
                        Button4.Enabled = False
                        r.Enabled = False
                    End If
                    fb.Enabled = False
                ElseIf rflg = False And rjflg = False And pflg = True And aflg = False Then
                    Button5.Enabled = True
                    Button4.Enabled = False
                    Button3.Enabled = False
                    Button2.Enabled = False
                    Button1.Enabled = False
                    Button8.Enabled = False
                    r.Enabled = False
                    fb.Enabled = False
                ElseIf rflg = False And rjflg = False And pflg = True And aflg = True Then
                    Button2.Enabled = True
                    Button4.Enabled = False
                    Button3.Enabled = False
                    Button5.Enabled = False
                    Button1.Enabled = False
                    Button8.Enabled = False
                    r.Enabled = False
                    fb.Enabled = False
                ElseIf rflg = False And rjflg = True And pflg = False And aflg = False Then
                    Button5.Enabled = False
                    Button4.Enabled = False
                    Button2.Enabled = False
                    Button1.Enabled = False
                    Button8.Enabled = True
                    fb.Enabled = True
                    If lvl = "Director" Or lvl = "Manager" Then
                        Button3.Enabled = True
                        r.Enabled = True
                    Else
                        Button3.Enabled = False
                        r.Enabled = False
                    End If
                End If
            End If
        End Sub

    Form is working well. No issue with loading or binding or anything but the problem is when I m debugging, the message i'm getting is; 

    Address:  servicerequest.Form1.ServiceDataGridView_CellClick(Object, System.Windows.Forms.DataGridViewCellEventArgs)

    Message : Disassembly cannot be displayed in run mode.

    Please, let me know the problem and solution asap...


    Thursday, August 9, 2012 10:50 AM

Answers