런타임 오류 380, vb6의 유효하지 않은 속성

Windows XP에서 제대로 실행되는 vb6의 응용 프로그램을 개발했지만 Windows 7에서 실행하려고하면 런타임 오류 380, 잘못된 속성이 표시됩니다.런타임 오류 380, vb6의 유효하지 않은 속성

Private Sub getData() 
    txtID.Text = rs!emp_id & "" 

    txtDept.Text = rs!dept_name & "" 

    txtDesig.Text = rs!desig_name & "" 

    txtName.Text = rs!emp_name & "" 

    txtPFNo.Text = rs!PF_ACC_NO & "" 

    cdDate.Text = Format(rs!PF_DATE, "dd/mm/yyyy") '(This line produces the error) 

    txtOwnSubs.Text = rs!SubsO & "" 

    txtUCont.Text = rs!ContU & "" 

    txtOptional.Text = rs!Optional & "" 

    txtLoanSanc.Text = rs!LoanSanc & "" 

    txtLoanRec.Text = rs!LoanRecovery & "" 

    txtInt.Text = rs!RateOfInt & "" 

    txtOSubs.Text = rs!OpeningO & "" 

    txtOcont.Text = rs!OpeningU & "" 

    txtCSubs.Text = rs!ClosingO & "" 

    txtCCont.Text = rs!ClosingU & "" 

    txtIntDurOwn.Text = rs!InterestO & "" 

    txtIntDurCont.Text = rs!InterestU & "" 

    txtIntUptoOwn.Text = rs!CInterestO & "" 

    txtIntUptoCont.Text = rs!CInterestU & "" 

    txtTotIntO.Text = rs!CInterestO & "" 

    txtTotIntC.Text = rs!CInterestU & "" 

    txtWithdrawn.Text = rs!withdrawn & "" 

    If rs!Type & "" = "N" Then 

    cboType.ListIndex = 0 

    Else 

    cboType.ListIndex = 1 

    End If 

End Sub

참고 : 다음은 오류를 발생시키는 코드는 내가 거기에서 내가 cdDate을 사용하고 DateCheck.ocx을 만들었습니다.

출처

2012-09-06 Joyeeta Chanda

동일한 문제를 해결하는 다음 질문을 확인하십시오. http://stackoverflow.com/questions/1979281/what-causes-this-error-runtime-error-380-invalid-property-value – Cyclonecode

어떤 유형의 컨트롤입니까? cdDate? Win XP PC에서와 마찬가지로 Win 7 PC에서도 지역 설정 (특히 날짜 형식)이 동일합니까? – MarkJ

그리고 어떤 라인이 실패하고 있습니까? – Deanna

줄을 여러 단계로 나누어 어떤 부분에서 오류가 발생하는지 확인하십시오.

Dim vnt As Variant 
vnt = rs!PF_DATE 
Dim sDate As String 
sDate$ = Format(vnt, "dd/mm/yyyy") 
cdDate.Text = sDate

그리고 추가 조사 :

출처

2012-09-06 09:23:01 MarkJ

을 cdDate가 DateTimePicker 경우, 당신이 가장 가능성이 .Text보다는 .Value 속성을 사용한다.

출처

2012-09-06 13:02:00

런타임 오류 380, vb6의 유효하지 않은 속성

답변

관련 문제