Solved

Visual Studio  2010

Posted on 2012-03-23
20
282 Views
Last Modified: 2012-04-08
i have received this error when i try to op vb form
there is no editor available
make sure the application for the file type (.vb) is installed
0
Comment
Question by:squrany
20 Comments
 
LVL 18

Expert Comment

by:Gary Davis
ID: 37757092
When you installed VS2010, did you select VB.Net language support? If not, re-run the setup to select it.

Gary Davis
0
 
LVL 33

Expert Comment

by:paulmacd
ID: 37757138
You get this error from within Visual Studio?  Or when you double-click on a .vb file in Windows Explorer?
0
 
LVL 69

Expert Comment

by:Éric Moreau
ID: 37757173
if you installed C# Express, you will also need to install VB Express.
0
 
LVL 100

Expert Comment

by:mlmcc
ID: 37757221
Not a Crystal Reports issue.
Zone removed

mlmcc
Zone Advisor
0
 

Author Comment

by:squrany
ID: 37757239
i have installed visual studio with VB language support
and this happen when i double click a form in my project
if i create new project with new form inside it , it work fine
0
 
LVL 33

Expert Comment

by:paulmacd
ID: 37757253
Again, are you opening the form from within VS, or are you double-clicking in Explorer?  If you're doing this from Explorer, you just need to create a file association.
0
 

Author Comment

by:squrany
ID: 37757289
from within VS
0
 
LVL 33

Expert Comment

by:paulmacd
ID: 37757302
Was the old form created in VS2010?  If not, is it part of a project you can convert to 2010?
0
 

Author Comment

by:squrany
ID: 37757341
it was created within VS 2010
0
 
LVL 33

Expert Comment

by:paulmacd
ID: 37757351
I wonder if something hasn't happened to it to corrupt it.  Is it possible someone/something has opened/edited this file outside of Visual Studio?  

Can you open it in Notepad or something?  Just to see if it looks intact?
0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 

Author Comment

by:squrany
ID: 37757387
Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.OleDb
Imports System.Net.Mail
Public Class Frm_ServiceRequest
    Dim ClsGetData As New ClsGetData
    Dim ActionNo As Integer
    Dim RowID As Integer
    Dim N As Integer
    Dim SendMailStatus As String
    Dim SearchRD As String
    Dim MaintID As Integer
    Dim Repaired As Boolean
    Private Sub SendMail()
        ' Dim mailto As String
        Dim mailcc As String
        ClsGetData.GetFeildString("select * from tbl_employee where empcode=" & CmbAssTo.SelectedValue & "", "Email")
        mailcc = StString
        Dim FromAddress As String = "HelpDesk@eggroup-eg.com"
        ClsGetData.GetFeildString("select * from tbl_employee where empcode=" & CmbReqUser.SelectedValue & "", "Email")
        Dim ReqUser As String = StString
        ClsGetData.GetFeildString("select * from tbl_employee where empcode=" & CmbAssTo.SelectedValue & "", "Email")
        Dim AssUser As String = StString
        Dim ToAddress As String = "" & ReqUser & ""

        Dim Subject As String
        Dim ReqMessageBody As String
        Dim AssMessageBody As String
        Select Case SendMailStatus
            Case "in progress"
                Subject = "Task is In Progress"
                ReqMessageBody = "Dear                  : " & Me.CmbReqUser.Text & "" & _
                "" & vbCrLf & "Your Ticket Number is : " & Me.RequestID.Text & "" & _
                "" & vbCrLf & "That was              : " & Me.CmbIntialIssue.Text & " (" & Txtcomments.Text & ")" & _
                "" & vbCrLf & "And was assigned to   : " & Me.CmbAssTo.Text & " is in progress"
                AssMessageBody = "Dear                  : " & Me.CmbAssTo.Text & "" & _
                "" & vbCrLf & "New Ticket Number is  : " & Me.RequestID.Text & "" & _
                "" & vbCrLf & "Description           : " & Me.CmbIntialIssue.Text & " (" & Txtcomments.Text & ")" & _
                "" & vbCrLf & "And was requested by  : " & Me.CmbReqUser.Text & " is in progress"
                SendEmail.SendEmailMessage(FromAddress, ToAddress, AssUser, Subject, ReqMessageBody, "")
                ' SendEmail.SendEmailMessage(FromAddress, AssUser, Subject, AssMessageBody, "")
                SendEmail.Sendtask("" & Me.CmbAssTo.Text & "", Subject, AssMessageBody)
            Case "Completed"
                Subject = "Task Is Completed"
                ReqMessageBody = "Dear                  : " & Me.CmbReqUser.Text & "" & _
                "" & vbCrLf & "Your Ticket Number is : " & Me.RequestID.Text & "" & _
                "" & vbCrLf & "That was              : " & Me.CmbIntialIssue.Text & " (" & Txtcomments.Text & ")" & _
                "" & vbCrLf & "And was assigned to   : " & Me.CmbAssTo.Text & " is completed"
                AssMessageBody = "Dear                  : " & Me.CmbAssTo.Text & "" & _
               "" & vbCrLf & "New Ticket Number is  : " & Me.RequestID.Text & "" & _
               "" & vbCrLf & "Description           : " & Me.CmbIntialIssue.Text & " (" & Txtcomments.Text & ")" & _
               "" & vbCrLf & "And was requested by  : " & Me.CmbReqUser.Text & " is in completed"
                SendEmail.SendEmailMessage(FromAddress, ToAddress, AssUser, Subject, ReqMessageBody, "")
                ' SendEmail.SendEmailMessage(FromAddress, ToAddress, AssUser, Subject, AssMessageBody, "")
                'SendEmail.Sendtask("" & Me.CmbAssTo.Text & "", Subject, AssMessageBody)
            Case "Scalated"
                Subject = "Task Scalated"
                ReqMessageBody = "Dear                  : " & Me.CmbReqUser.Text & "" & _
                "" & vbCrLf & "Your Ticket Number is : " & Me.RequestID.Text & "" & _
                "" & vbCrLf & "That was              : " & Me.CmbIntialIssue.Text & " (" & Txtcomments.Text & ")" & _
                "" & vbCrLf & "And was assigned to   : " & Me.CmbAssTo.Text & " is Scalated"
                AssMessageBody = "Dear                  : " & Me.CmbAssTo.Text & "" & _
              "" & vbCrLf & "New Ticket Number is  : " & Me.RequestID.Text & "" & _
              "" & vbCrLf & "Description           : " & Me.CmbIntialIssue.Text & " (" & Txtcomments.Text & ")" & _
              "" & vbCrLf & "And was requested by  : " & Me.CmbReqUser.Text & " is in Scalated"
                SendEmail.SendEmailMessage(FromAddress, ToAddress, AssUser, Subject, ReqMessageBody, "")
                ' SendEmail.SendEmailMessage(FromAddress, ToAddress, AssUser, Subject, AssMessageBody, "")
                'SendEmail.Sendtask("" & Me.CmbAssTo.Text & "", Subject, AssMessageBody)
   
        End Select

    End Sub
    Private Sub BtnDSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        If Me.Txtcomments.Text = "" Then
            MsgBox("Please Type A Description for the Task")
            Exit Sub
        End If
        SRVReqSave()

        ClsGetData.Load_GridDAta("select * from view_SRVRequest where closed = 0 order by tn", DGVSRVReq)
        GBTaskEdit.Visible = False
        'If Me.RDCompleted.Checked = True Then
        '    SendMailStatus = "Completed"
        'ElseIf RDInProgress.Checked = True Then
        '    SendMailStatus = "in progress"
        'ElseIf RDScalated.Checked = True Then
        '    SendMailStatus = "Scalated"
        'Else
        '    Exit Sub
        'End If
        'SendMail()
    End Sub
    Public Sub SRVReqSave()
        Dim StartDateTime As Date = Date.Now
        Dim EndDateTime As Date = Date.Now
        ClsGetData.GetFeildDateTime("select * from tbl_srvrequest where TicketNumber=" & Me.RequestID.Text & "", "StartDateTime")
        Dim startdate As DateTime = DateTimeString
        Dim sqlcmd As New SqlCommand
        sqlcmd.Connection = SqlConn
        sqlcmd.CommandType = CommandType.StoredProcedure
        sqlcmd.CommandText = "Up_Coding_SRVRequest"
        sqlcmd.Parameters.Add(New SqlParameter("@Action", ActionNo))
        sqlcmd.Parameters.Add(New SqlParameter("@RequestID", Me.RequestID.Text))
        sqlcmd.Parameters.Add(New SqlParameter("@IntialTaskCode", Me.CmbIntialIssue.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@Description", Me.CmbTaskDes.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@Importance", Me.CmbImportance.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@DeviceID", Me.CmbDviceID.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@Department", Me.CmbUserDept.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@UserID", Me.CmbReqUser.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@StartDateTime", StartDateTime))
        sqlcmd.Parameters.Add(New SqlParameter("@EndDateTime", EndDateTime))
        sqlcmd.Parameters.Add(New SqlParameter("@Duration", DateDiff(DateInterval.Minute, startdate, EndDateTime)))
        sqlcmd.Parameters.Add(New SqlParameter("@Staus", Me.CmbStatus.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@AssignedTo", Me.CmbAssTo.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@CatAction", Me.CmbTaskAction.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@ActualTaskCode", Me.CmbActualIssue.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@Closed", Me.ChkClosed.CheckState))
        sqlcmd.Parameters.Add(New SqlParameter("@ClosedState", Me.CmbStatus.Text))
        sqlcmd.Parameters.Add(New SqlParameter("@TaskCatSubDesc", Me.CmbTaskCatSub.SelectedValue))
        sqlcmd.Parameters.Add(New SqlParameter("@Comments", Me.Txtcomments.Text))
        SqlConn.Open()
        sqlcmd.ExecuteNonQuery()
        SqlConn.Close()
    End Sub

    Private Sub Frm_ServiceRequest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillCombo()
    End Sub
    Private Sub CmbReqUser_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbReqUser.SelectedIndexChanged
        Try
            ClsGetData.FillCombo("select * from tbl_Device where empcode =" & Me.CmbReqUser.SelectedValue & " order by devicetypecode DESC", CmbDviceID, "DeviceName", "DeviceCode")
            ClsGetData.FillCombo("select * from view_employee where name like '" & CmbReqUser.Text & "'", Me.CmbUserDept, "Department", "Departmentcode")
            Me.CmbUserDept.SelectedIndex = 0
        Catch
            If SqlConn.State = ConnectionState.Open Then
                SqlConn.Close()
            End If
        End Try
    End Sub
    Private Sub CmbReqUser_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbReqUser.TextChanged
        Try
            ClsGetData.FillCombo("select * from tbl_Device where empcode =" & Me.CmbReqUser.SelectedValue & " order by devicetypecode DESC", CmbDviceID, "DeviceName", "DeviceCode")
            ClsGetData.FillCombo("select * from view_employee where name like '" & CmbReqUser.Text & "'", Me.CmbUserDept, "Department", "Departmentcode")
            Me.CmbUserDept.SelectedIndex = 0
        Catch
            If SqlConn.State = ConnectionState.Open Then
                SqlConn.Close()
            End If
        End Try
    End Sub
    Private Sub CmbReqUser_TextUpdate(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbReqUser.TextUpdate
        Try
            ClsGetData.FillCombo("select * from tbl_Device where empcode =" & Me.CmbReqUser.SelectedValue & "  order by devicetypecode DESC", CmbDviceID, "DeviceName", "DeviceCode")
            ClsGetData.FillCombo("select * from view_employee where name like '" & CmbReqUser.Text & "'", Me.CmbUserDept, "Department", "Departmentcode")
            Me.CmbUserDept.SelectedIndex = 0
        Catch
            If SqlConn.State = ConnectionState.Open Then
                SqlConn.Close()
            End If
        End Try
    End Sub
    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        TxtEmpCode.Text = 0
        Txtcomments.Clear()


        FillCombo()
        ActionNo = 1
        Dim Cmd As New SqlClient.SqlCommand("Select * from tbl_SRVRequest", ClsDBConn.SQLConn)
        Dim da As New SqlClient.SqlDataAdapter(Cmd)
        Dim ds As New EnteriesDataset
        da.Fill(ds.tbl_SRVRequest)
        If ds.tbl_SRVRequest.Rows.Count <= 0 Then
            RequestID.Text = "1"
        ElseIf ds.tbl_SRVRequest.Rows.Count > 0 Then
            RequestID.Text = ds.tbl_SRVRequest.Rows.Count + 1
        End If
        CmbReqUser.Focus()
        GBTaskEdit.Visible = True
    End Sub
    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        If Me.RequestID.Text = "Request ID" Then
            Exit Sub
        Else
            GBTaskEdit.Visible = True
            ActionNo = 2
        End If
    End Sub
    Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete.Click
        If Me.RequestID.Text = "Request ID" Then
            Exit Sub
        Else
            If MsgBox("Delete current information ?", MsgBoxStyle.OkCancel, "Help Desk System") = MsgBoxResult.Ok Then

                ActionNo = 3
                SRVReqSave()
            Else
                Exit Sub
            End If

        End If
    End Sub
    Public Sub DGVSRVReq_RowHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DGVSRVReq.RowHeaderMouseClick
        RowID = e.RowIndex
        N = Me.DGVSRVReq.Rows(e.RowIndex).Cells(0).Value.ToString()
        Me.RequestID.Text = Me.DGVSRVReq.Rows(e.RowIndex).Cells(0).Value.ToString()
        Me.CmbAssTo.Text = DGVSRVReq.Rows(e.RowIndex).Cells(1).Value.ToString()
        Me.CmbReqUser.Text = DGVSRVReq.Rows(e.RowIndex).Cells(2).Value.ToString()
        Me.CmbUserDept.Text = DGVSRVReq.Rows(e.RowIndex).Cells(3).Value.ToString()
        Me.CmbIntialIssue.Text = Me.DGVSRVReq.Rows(e.RowIndex).Cells(4).Value.ToString()
        Me.Txtcomments.Text = DGVSRVReq.Rows(e.RowIndex).Cells(5).Value.ToString()
        Me.CmbActualIssue.Text = Me.DGVSRVReq.Rows(e.RowIndex).Cells(6).Value.ToString()
        Me.CmbDviceID.Text = DGVSRVReq.Rows(e.RowIndex).Cells(6).Value.ToString()
        Me.CmbStatus.Text = DGVSRVReq.Rows(e.RowIndex).Cells(7).Value.ToString()
        Me.CmbImportance.Text = DGVSRVReq.Rows(e.RowIndex).Cells(8).Value.ToString()
        Me.CmbTaskDes.Text = DGVSRVReq.Rows(e.RowIndex).Cells(12).Value.ToString()
        Me.CmbTaskCatSub.Text = DGVSRVReq.Rows(e.RowIndex).Cells(13).Value.ToString()
        Me.CmbTaskAction.Text = DGVSRVReq.Rows(e.RowIndex).Cells(14).Value.ToString()
        If Me.CmbStatus.Text = "Completed" Then
            Me.RDCompleted.Checked = True
            RDInProgress.Checked = False
            RDScalated.Checked = False
        ElseIf Me.CmbStatus.Text = "InProgress" Then
            Me.RDCompleted.Checked = False
            RDInProgress.Checked = True
            RDScalated.Checked = False
        ElseIf Me.CmbStatus.Text = "Scalated" Then
            Me.RDCompleted.Checked = False
            RDInProgress.Checked = False
            RDScalated.Checked = True
        End If
        ClsGetData.GetFeildValue("select * from view_maint where requestid =" & RequestID.Text & "", "Repaired", "requestid")
        Repaired = StString
    End Sub

    Private Sub DGVSRVReq_RowHeaderMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DGVSRVReq.RowHeaderMouseDoubleClick
        RowID = e.RowIndex
        N = Me.DGVSRVReq.Rows(e.RowIndex).Cells(0).Value.ToString()
        Me.RequestID.Text = Me.DGVSRVReq.Rows(e.RowIndex).Cells(0).Value.ToString()
        Me.CmbAssTo.Text = DGVSRVReq.Rows(e.RowIndex).Cells(1).Value.ToString()
        Me.CmbReqUser.Text = DGVSRVReq.Rows(e.RowIndex).Cells(2).Value.ToString()
        Me.CmbUserDept.Text = DGVSRVReq.Rows(e.RowIndex).Cells(3).Value.ToString()
        Me.CmbIntialIssue.Text = Me.DGVSRVReq.Rows(e.RowIndex).Cells(4).Value.ToString()
        Me.Txtcomments.Text = DGVSRVReq.Rows(e.RowIndex).Cells(5).Value.ToString()
        Me.CmbActualIssue.Text = Me.DGVSRVReq.Rows(e.RowIndex).Cells(6).Value.ToString()
        Me.CmbDviceID.Text = DGVSRVReq.Rows(e.RowIndex).Cells(6).Value.ToString()
        Me.CmbStatus.Text = DGVSRVReq.Rows(e.RowIndex).Cells(7).Value.ToString()
        Me.CmbImportance.Text = DGVSRVReq.Rows(e.RowIndex).Cells(8).Value.ToString()
        Me.CmbTaskDes.Text = DGVSRVReq.Rows(e.RowIndex).Cells(12).Value.ToString()
        Me.CmbTaskCatSub.Text = DGVSRVReq.Rows(e.RowIndex).Cells(13).Value.ToString()
        Me.CmbTaskAction.Text = DGVSRVReq.Rows(e.RowIndex).Cells(14).Value.ToString()
        If Me.CmbStatus.Text = "" Then
        ElseIf Me.CmbStatus.Text = "" Then
        ElseIf Me.CmbStatus.Text = "" Then
        Else
        End If
       
        If Me.CmbStatus.Text = "Completed" Then
            Me.RDCompleted.Checked = True
            RDInProgress.Checked = False
            RDScalated.Checked = False
        ElseIf Me.CmbStatus.Text = "In Progress" Then
            Me.RDCompleted.Checked = False
            RDInProgress.Checked = True
            RDScalated.Checked = False
        ElseIf Me.CmbStatus.Text = "Scalated" Then
            Me.RDCompleted.Checked = False
            RDInProgress.Checked = False
            RDScalated.Checked = True
        Else
            Me.RDCompleted.Checked = False
            RDInProgress.Checked = False
            RDScalated.Checked = False
        End If
       
        ActionNo = 2
        GBTaskEdit.Visible = True
    End Sub
    ' Private Sub DGVSRVReq_CellFormatting(ByVal sender As Object, _
    'ByVal e As DataGridViewCellFormattingEventArgs) Handles DGVSRVReq.CellFormatting

    'DGVSRVReq.RowHeadersDefaultCellStyle.ForeColor = Color.Blue
    'DGVSRVReq.ColumnHeadersDefaultCellStyle.Font = New System.Drawing.Font("Times New Roman", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    '  DGVSRVReq.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    ' ClsGetData.GetFeildValue("select * from tbl_taskstatus where StatusName like '" & Me.DGVSRVReq.Rows(e.RowIndex).Cells(7).Value & "'", "StatusColor")
    ' e.CellStyle.BackColor = Color.FromArgb(StString)
    'End Sub
    Private Sub BtnSrsh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSrsh.Click
        If TxtTNSrsh.Text = "" Then
            Select Case SearchRD
                Case "Status"
                    SearchCondition = "select * from View_SRVRequest WHERE " & _
                               "StartDT between '" & DTSrshStDt.Value.Date & "' and '" & DTSrshEndDt.Value.Date & "' and " & _
                               "Status like '" & CmbSearch.Text & "' order by TN"
                    ClsGetData.Load_GridDAta(SearchCondition, DGVSRVReq)
                Case "assigned to"
                    SearchCondition = "select * from View_SRVRequest WHERE " & _
                                "StartDT between '" & DTSrshStDt.Value.Date & "' and '" & DTSrshEndDt.Value.Date & "' and " & _
                                "[assigned to] like '" & CmbSearch.Text & "' order by TN"
                    ClsGetData.Load_GridDAta(SearchCondition, DGVSRVReq)
                Case "Requested User"
                    SearchCondition = "select * from View_SRVRequest WHERE " & _
                                "StartDT between '" & DTSrshStDt.Value.Date & "' and '" & DTSrshEndDt.Value.Date & "' and " & _
                                "Requested like '" & CmbSearch.Text & "' order by TN"
                    ClsGetData.Load_GridDAta(SearchCondition, DGVSRVReq)
                Case "Department"
                    If CmbSearch.Text = "all" Then
                        SearchCondition = "select * from View_SRVRequest WHERE " & _
                    "StartDT between convert(datetime,'" & DTSrshStDt.Value.Date & "',103) and convert(datetime,'" & DTSrshEndDt.Value.Date & "',103) " & _
                    "order by TN"
                        ClsGetData.Load_GridDAta(SearchCondition, DGVSRVReq)
                    Else
                        SearchCondition = "select * from View_SRVRequest WHERE " & _
                              "StartDT between convert(datetime,'" & DTSrshStDt.Value.Date & "',103) and convert(datetime,'" & DTSrshEndDt.Value.Date & "',103)" & _
                              "order by TN" 'Department like '" & CmbSearch.Text & "'
                        ClsGetData.Load_GridDAta(SearchCondition, DGVSRVReq)
                    End If
                 
                    RptName = "SRVReqByDept"

                Case "DeviceType"
                    SearchCondition = "select * from View_SRVRequest WHERE " & _
                                 "StartDT between '" & DTSrshStDt.Value.Date & "' and '" & DTSrshEndDt.Value.Date & "' and " & _
                                 "DeviceType like '" & CmbSearch.Text & "' order by TN"
                    ClsGetData.Load_GridDAta(SearchCondition, DGVSRVReq)
                Case "TN"
                    SearchCondition = "select * from View_SRVRequest WHERE TN = " & Me.TxtTNSrsh.Text & " order by TN"
                    ClsGetData.Load_GridDAta(SearchCondition, DGVSRVReq)
                Case "Date"
                    SearchCondition = "select * from View_SRVRequest WHERE " & _
                           "StartDT between '" & DTSrshStDt.Value.Date & "' and '" & DTSrshEndDt.Value.Date & "' order by TN"
                    ClsGetData.Load_GridDAta(SearchCondition, DGVSRVReq)
                    RptName = "SrvReqByDate"
            End Select
        End If
    End Sub
    Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
        GBTaskEdit.Visible = False

    End Sub
    Private Sub CmbUserDept_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbUserDept.SelectedIndexChanged
        'MsgBox(Me.CmbUserDept.SelectedValue.ToString)
    End Sub
    Private Sub ChkClosed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkClosed.CheckedChanged
        If Me.ChkClosed.CheckState = CheckState.Checked Then
        End If
    End Sub
    'Private Sub CmbTaskDes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbTaskDes.SelectedIndexChanged
    '    Try
    '        ClsGetData.FillCombo("select * from tbl_TaskCatSub where taskcatCode =" & Me.CmbTaskDes.SelectedValue & " ", CmbTaskCatSub, "TaskCateSubDesc", "Code")
    '        'ClsGetData.FillCombo("select * from view_employee where name like '" & CmbReqUser.Text & "'", Me.CmbUserDept, "Department", "Departmentcode")
    '        Me.CmbTaskCatSub.SelectedIndex = 0

    '    Catch
    '        If SqlConn.State = ConnectionState.Open Then
    '            SqlConn.Close()
    '        End If
    '    End Try
    'End Sub
    'Private Sub CmbTaskDes_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbTaskDes.TextChanged
    '    Try
    '        ClsGetData.FillCombo("select * from tbl_TaskCatSub where taskcatCode =" & Me.CmbTaskDes.SelectedValue & " ", CmbTaskCatSub, "TaskCateSubDesc", "Code")
    '        'ClsGetData.FillCombo("select * from view_employee where name like '" & CmbReqUser.Text & "'", Me.CmbUserDept, "Department", "Departmentcode")
    '        Me.CmbTaskCatSub.SelectedIndex = 0

    '    Catch
    '        If SqlConn.State = ConnectionState.Open Then
    '            SqlConn.Close()
    '        End If
    '    End Try
    'End Sub
    'Private Sub CmbTaskDes_TextUpdate(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbTaskDes.TextUpdate
    '    Try
    '        ClsGetData.FillCombo("select * from tbl_TaskCatSub where taskcatCode =" & Me.CmbTaskDes.SelectedValue & " ", CmbTaskCatSub, "TaskCateSubDesc", "Code")
    '        'ClsGetData.FillCombo("select * from view_employee where name like '" & CmbReqUser.Text & "'", Me.CmbUserDept, "Department", "Departmentcode")
    '        Me.CmbTaskCatSub.SelectedIndex = 0

    '    Catch
    '        If SqlConn.State = ConnectionState.Open Then
    '            SqlConn.Close()
    '        End If
    '    End Try
    'End Sub
    'Private Sub CmbTaskCatSub_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbTaskCatSub.SelectedIndexChanged
    '    Try
    '        ClsGetData.FillCombo("select * from tbl_TaskCatAction where categoryCode =" & Me.CmbTaskDes.SelectedValue & " ", CmbTaskAction, "CatAction", "ID")
    '        'ClsGetData.FillCombo("select * from view_employee where name like '" & CmbReqUser.Text & "'", Me.CmbUserDept, "Department", "Departmentcode")
    '        ' Me.CmbTaskCatSub.SelectedIndex = 0

    '    Catch
    '        If SqlConn.State = ConnectionState.Open Then
    '            SqlConn.Close()
    '        End If
    '    End Try
    'End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtEmpCode.TextChanged
        Try
            ClsGetData.FillCombo("select * from view_employee where code =" & Me.TxtEmpCode.Text & "", Me.CmbReqUser, "Name", "code")
            ClsGetData.FillCombo("select * from tbl_Device where empcode =" & Me.TxtEmpCode.Text & " order by devicetypecode DESC", CmbDviceID, "DeviceName", "DeviceCode")
            ClsGetData.FillCombo("select * from view_employee where name like '" & CmbReqUser.Text & "'", Me.CmbUserDept, "Department", "Departmentcode")
            Me.CmbUserDept.SelectedIndex = 0
        Catch
            If SqlConn.State = ConnectionState.Open Then
                SqlConn.Close()
            End If
        End Try
    End Sub
    Private Sub RDCompleted_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDCompleted.CheckedChanged
        If RDCompleted.Checked = True Then
            Me.ChkClosed.Checked = True
            Me.CmbStatus.SelectedValue = 3
        Else
            Me.ChkClosed.Checked = False
        End If
        '  SendMailStatus = "Completed"
    End Sub
    Private Sub RDScalated_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDScalated.CheckedChanged
        Me.CmbStatus.SelectedValue = 4
        ' SendMailStatus = "Scalated"
    End Sub
    Private Sub RDInProgress_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDInProgress.CheckedChanged
        Me.CmbStatus.SelectedValue = 1
        ' SendMailStatus = "in Progress"
    End Sub
    Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrint.Click
        If SearchCondition = "" Then
            Exit Sub
        End If
        '        RptName = "SRVReqByDept"
        frm_rpt.Show()
    End Sub
    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        On Error Resume Next
        If Len(CmbSearch.Text) = 0 Then
            MessageBox.Show("¿¿ ¿¿¿¿ ¿¿¿ ¿¿¿¿¿ ¿¿¿¿¿¿¿¿  ", "¿¿¿ ¿¿¿¿¿ ¿¿¿¿¿¿¿¿", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            CmbSearch.Focus()
            Exit Sub
        End If
        SaveFileDialog1.Filter = "Crash Dump File (*.dmp)|*.dmp|SQL Server Transaction Log Backup (*.trn)|*.trn|BAK File (*.bak)|*.bak|All files (*.*)|*.*"
        With Me.SaveFileDialog1
            .FilterIndex = 3
            .Title = "¿¿¿ ¿¿¿"
            .InitialDirectory = "C:\"
            .AddExtension = True
            .ShowDialog()
            If Len(.FileName) > 0 Then
                Me.TextBox1.Text = SaveFileDialog1.FileName
            End If
        End With
    End Sub
    Private Sub RDAssTo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDAssTo.CheckedChanged
        If RDAssTo.Checked = True Then
            ClsGetData.FillCombo("select * From tbl_employee where departmentcode = 13", CmbSearch, "username", "empcode")
            SearchRD = "assigned to"
        End If
    End Sub
    Private Sub RDReqUser_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDReqUser.CheckedChanged
        If RDReqUser.Checked = True Then
            ClsGetData.FillCombo("select * From tbl_employee", CmbSearch, "username", "empcode")
            SearchRD = "Requested User"
        End If
    End Sub
    Private Sub RDDept_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDDept.CheckedChanged
        If RDDept.Checked = True Then
            ClsGetData.FillCombo("Select * from tbl_Department", CmbSearch, "Name", "Code")
            SearchRD = "Department"
        End If
    End Sub
    Private Sub RDDeviceType_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDDeviceType.CheckedChanged
        If RDDeviceType.Checked = True Then
            ClsGetData.FillCombo("Select * from tbl_DeviceType", CmbSearch, "Name", "Code")
            SearchRD = "DeviceType"
        End If
    End Sub
    Private Sub RDStatus_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDStatus.CheckedChanged
        If RDStatus.Checked = True Then
            ClsGetData.FillCombo("select * from tbl_Taskstatus", CmbSearch, "StatusName", "StatusID")
            SearchRD = "Status"
        End If
    End Sub
    Public Sub FillCombo()
        ClsGetData.FillCombo("select * From tbl_employee order by username", CmbReqUser, "username", "empcode")
        ClsGetData.FillCombo("select * from tbl_task", CmbIntialIssue, "taskname", "taskCode")
        ClsGetData.FillCombo("select * from tbl_Importance", CmbImportance, "Importance", "ImpCode")
        ClsGetData.FillCombo("select * from tbl_Device where empcode =" & Me.CmbReqUser.SelectedValue & "", CmbDviceID, "DeviceName", "DeviceCode")
        ClsGetData.FillCombo("Select * from tbl_Department", CmbUserDept, "Name", "Code")
        ClsGetData.FillCombo("select * from tbl_Taskstatus", CmbStatus, "StatusName", "StatusID")
        ClsGetData.FillCombo("select * From tbl_employee where departmentcode = 13", CmbAssTo, "username", "empcode")
        ClsGetData.FillCombo("select * from tbl_task", CmbActualIssue, "taskname", "taskCode")
        ClsGetData.FillCombo("select * from tbl_TaskCategory", CmbTaskDes, "CategoryName", "id")
        ClsGetData.FillCombo("select * from tbl_TaskCatSub", CmbTaskCatSub, "TaskCateSubDesc", "Code")
        ClsGetData.FillCombo("select * from tbl_TaskCatAction", CmbTaskAction, "CatAction", "ID")
        ClsGetData.Load_GridDAta("select * from view_SRVRequest where closed = 0 order by tn", DGVSRVReq)
        'ClsGetData.Load_GridDAta("select * from view_Maint where Repaired = 0 order by RequestID", DGVMaint)
        ' ClsGetData.FillCombo("select * From tbl_employee where linecode = 52 order by username", CmbReceivedBy, "username", "empcode")
        RDCompleted.Checked = False
        RDInProgress.Checked = False
        RDScalated.Checked = False

    End Sub
    Private Sub RDTicketNumber_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDTicketNumber.CheckedChanged
        If RDTicketNumber.Checked = True Then
            SearchRD = "TN"
        End If
    End Sub
    Private Sub RDDate_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDDate.CheckedChanged
        If RDDate.Checked = True Then
            SearchRD = "Date"
        End If
    End Sub

    Private Sub DGVSRVReq_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVSRVReq.CellContentClick

    End Sub
End Class
0
 
LVL 33

Expert Comment

by:paulmacd
ID: 37757418
Looks okay to me.  Maybe you can just rename the bad file, create a new one using the old name, then paste the copied code into the new file?  It doesn't fix the problem, but it's a good work around.
0
 

Author Comment

by:squrany
ID: 37757427
but this happened to all forms in the project
i need solution note work around
0
 

Author Comment

by:squrany
ID: 37757436
i do this and it did not work
0
 
LVL 33

Expert Comment

by:paulmacd
ID: 37757438
Hmm.  Something doesn't sound right about that.  A new project works, but this one doesn't?  And you insist this one was created in VS2010?  There's something else going on here - maybe your project file is bad or something.  

Can you create a new project, then import the .vb files to see if that fixes the problem?
0
 

Author Comment

by:squrany
ID: 37757517
i have installed this VS10-KB2345133-x86
and i can not rollback
0
 
LVL 33

Expert Comment

by:paulmacd
ID: 37757547
Not asking you to roll back anything.  Create a new, empty project, and then bring the "faulty" files into it.  This should work just fine and will tell you if your problem is at the project level.
0
 

Author Comment

by:squrany
ID: 37757647
sorry
what is the "faulty" files  and how to bring them
0
 

Accepted Solution

by:
squrany earned 0 total points
ID: 37761390
i have found that there is some references to be removed
and the problem solved after that
0
 

Author Closing Comment

by:squrany
ID: 37820822
I have solve it my self
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now