Solved

Visual Studio  2010

Posted on 2012-03-23
20
284 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 34

Expert Comment

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

Expert Comment

by:Éric Moreau
ID: 37757173
if you installed C# Express, you will also need to install VB Express.
0
Back Up Your Microsoft Windows Server®

Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

 
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 34

Expert Comment

by:Paul MacDonald
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 34

Expert Comment

by:Paul MacDonald
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 34

Expert Comment

by:Paul MacDonald
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
 

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 34

Expert Comment

by:Paul MacDonald
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 34

Expert Comment

by:Paul MacDonald
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 34

Expert Comment

by:Paul MacDonald
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

ScreenConnect 6.0 Free Trial

Explore all the enhancements in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
EF5: Question about Metadata Artifact Processing 4 15
VB: Convert 2 dates to specific format 24 48
export data table to excel in vb.net 10 27
Footer for each row on Gridview 2 21
With most software applications trying to cater to multiple user needs nowadays, the focus is to make them as configurable as possible. For e.g., when creating Silverlight applications which will connect to WCF services, the service end point usuall…
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
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…
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…

810 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