var jq = document.createElement('script'); jq.src = "https://ajax.googleapis.com/ajax/libs/jquery/1/jquery.min.js"; document.getElementsByTagName('head')[0].appendChild(jq); // ... give time for script to load, then type. jQuery.noConflict(); 이 코드를 추가해주면 사용가능해진다!
VB6.0은 FOR문 안에 CONTINUE 문을 넣을수가 없어서 조건 해당시 다음 FOR문으로 넘어갈 수가 없다. 때문에 어쩔수없이 GOTO문 이용해서 NEXT로 바로 가도록 설정해줘야 한다. 123456For I = 1 To N If SomeCondition Then GoTo NextIteration NextIteration: Next Ics
1234567891011121314151617181920 'spread 이름 , 쿼리문 , row , col , 콤보박스에 넣을 데이터Private Sub SpreadComboSetting(Sp As Control, Str As String, iRow As Long, iCol As Long, Data As String) Dim Rs2 As New ADODB.RecordsetRs2.Open Str, Cn, adOpenStatic, adLockReadOnly Sp.TypeComboBoxClear iCol, iRow If Not Rs2.EOF Then With fpSpread1 Do While Not Rs2.EOF .Row = iRow '해당하는 col 부분에 콤보박스 추가해준다. + 연산자 이용 .Col =..
1234567891011121314fpSpread1.Row = fpSpread1.ActiveRow '활성화된 row값 받아오기fpSpread1.Col = 1 'Form5 작업단위 바꿔주고 , 코드값 변경Form5.InsaCodeTextBox.Text = fpSpread1.Text InsaCode = fpSpread1.Text fpSpread1.Col = 2Form5.InsaNameTextBox.Text = fpSpread1.Text InsaName = fpSpread1.Text Unload MeColored by Color Scriptercs
1234567891011121314151617181920212223242526 Str = "SELECT * from dbo.workgrmst" Rsc.Open Str, Cn, adOpenStatic, adLockReadOnly If Not Rsc.EOF Then Do Until Rsc.EOF j = j + 1 '해당하는 콤보박스에 값을 추가해 주고 .TypeComboBoxIndex = j .TypeComboBoxString = Rsc!WorkGrCode & ":" & Rsc!WorkGrName '콤보박스에서 해당하는 이름이 같으면 해당 셀로 선택해준다. If Rsc!WorkGrName = Rs!WorkGrName Then '!!!선택!!!!! .TypeComboBoxCurSel = j End If Rsc..
1234567891011'콤보박스에 해당하는 값 받아오기/ 해당콤보박스, 원하는 Sub FindComboIndex(ComboName As ComboBox, Value As String) For i = 0 To ComboName.ListCount - 1 Step 1 If Value = ComboName.List(i) Then ComboName.ListIndex = i Exit Sub End If Next End SubColored by Color Scriptercs
1234'_ 로 마스크 된 텍스트박스 검증을 위해서는'_ 를 지우고남은 length 를 계산해준다IF NOT Len(Replace(MaskTextBox.Text) , "_" , "")) = 14 THEN Colored by Color Scriptercs
1234567 SELECT *FROM INSAMSTwhere (@gubun = 'Y' AND (ToiDate != '____/__/__' and ToiDate = @ToiDate OR ToiDate = '____/__/__')) Colored by Color Scriptercs 1234567891011121314and ( (@GuBun = 'Y' AND (Insa.ToiDate >= @ToiDate or Insa.ToiDate = '____/__/__')) or (@GuBun = 'N' and Insa.ToiDate != '____/__/__' and Insa.ToiDate
