Answers for "Disassembly cannot be displayed in run mode."

Disassembly cannot be displayed in run mode.

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