Q&A

  • ㅠ,.ㅠ 에구 Help me plz T,.T 창민싸부..
ㅠ.ㅠ 고수님들 이것좀 갈켜주시와엽 ㅠ.ㅠ



비베를 잘몰라서리 비베 하셨던고수님들 도움을 ㅠ.ㅠ 그럼 편안하십쇼...^^







Sub Command3D2_Click ()

Dim ds As dynaset

Dim sql As String

Dim tbl As table



g_jepum = panel3d4.Caption

g_fail_qty = 0

g_ser_no = Val(text1.Text)

g_date = Format(panel3d9.Caption, "yyyy/mm/dd")



Load prc10

prc10.Show 1



sql = "select distinct [제조번호] from [불량내역] where [검사번호] = " & Val(text1)



Set ds = PROCDB.CreateDynaset(sql, 4)

list1.Clear

Do While Not ds.EOF

list1.AddItem ds![제조번호]

ds.MoveNext

Loop

If list1.ListCount <> Val(panel3d7.Caption) Then <-----(이 부분 부터 끝까지설명좀 ㅠ.ㅠ) ㅠ.ㅠ 울 과장님이 맹글었는디.. 지가 델루 고치고 있음당.....중요한것은 울과장님이 벤처회사로 가서리 무러볼사람이 없다는 것 넘 슬포엽 ㅠㅠ

addcnt = list1.ListCount - Val(panel3d7.Caption)

Set tbl = PROCDB.OpenTable("검사명세")

tbl.Index = "순번"

tbl.Seek "=", Val(text1)

If tbl.NoMatch Then

tbl.Close

response = MsgBox("등록안된 검사정보임!", 0 + 16 + 0)

Exit Sub

End If

tbl.Edit

tbl![불량수량] = tbl![불량수량] + addcnt

tbl.Update

panel3d7.Caption = tbl![불량수량]

End If



End Sub

이 게시물을
2  COMMENTS
  • Profile
    구창민 • 2000.07.29 11:19
    사바리.. wrote:

    > ㅠ.ㅠ 고수님들 이것좀 갈켜주시와엽 ㅠ.ㅠ

    >

    > 비베를 잘몰라서리 비베 하셨던고수님들 도움을 ㅠ.ㅠ 그럼 편안하십쇼...^^

    >

    >

    >

    > Sub Command3D2_Click ()

    > Dim ds As dynaset

    > Dim sql As String

    > Dim tbl As table

    >

    > g_jepum = panel3d4.Caption

    > g_fail_qty = 0

    > g_ser_no = Val(text1.Text)

    > g_date = Format(panel3d9.Caption, "yyyy/mm/dd")

    >

    > Load prc10

    > prc10.Show 1

    >

    > sql = "select distinct [제조번호] from [불량내역] where [검사번호] = " & Val(text1)

    >

    > Set ds = PROCDB.CreateDynaset(sql, 4)

    > list1.Clear

    > Do While Not ds.EOF

    > list1.AddItem ds![제조번호]

    > ds.MoveNext

    > Loop

    > If list1.ListCount <> Val(panel3d7.Caption) Then <-----(이 부분 부터 끝까지설명좀 ㅠ.ㅠ) ㅠ.ㅠ 울 과장님이 맹글었는디.. 지가 델루 고치고 있음당.....중요한것은 울과장님이 벤처회사로 가서리 무러볼사람이 없다는 것 넘 슬포엽 ㅠㅠ

    > addcnt = list1.ListCount - Val(panel3d7.Caption)

    > Set tbl = PROCDB.OpenTable("검사명세")

    > tbl.Index = "순번"

    > tbl.Seek "=", Val(text1)

    > If tbl.NoMatch Then

    > tbl.Close

    > response = MsgBox("등록안된 검사정보임!", 0 + 16 + 0)

    > Exit Sub

    > End If

    > tbl.Edit

    > tbl![불량수량] = tbl![불량수량] + addcnt

    > tbl.Update

    > panel3d7.Caption = tbl![불량수량]

    > End If

    >

    > End Sub



    사발님 안녕하세요~



    에궁 .. VB 사용안한지 넘 오래되어서리..3년이 되었네여..^^;



    일단 흐름만 적어볼께요.



    참고하셔서 개발하세요.







    먼저 쭈욱 보니까 '불량내역'이라는 테이블에서 '제조번호'라는 필드의 값중

    text1과 일치하는 자료들을 list1이라는 곳에 목록을 만드셨군요.



    list1이라는게 ListBox인거 같은데 맞나요?



    그런 다음이 사발님 과장님이 만드셨다는 루틴인데.



    주석을 달아볼께요.



    //'제조번호'목록이 어떤값(panel3d7.Caption) 과 다르다면..

    If list1.ListCount <> Val(panel3d7.Caption) Then

    //addcnt 라는 변수에 그 값과의 차를 대입하고...

    addcnt = list1.ListCount - Val(panel3d7.Caption)

    //tbl 테이블을 오픈하고

    Set tbl = PROCDB.OpenTable("검사명세")

    tbl.Index = "순번" //'순번'필드를 인덱스로 잡고..

    tbl.Seek "=", Val(text1) //검색은 text1의 값으로 검색..



    If tbl.NoMatch Then //일치되는 정보가 없다면

    tbl.Close //테이블을 닫고 메세지 출력..

    response = MsgBox("등록안된 검사정보임!", 0 + 16 + 0)

    Exit Sub

    End If



    //만약 일치하는 데이타를 찾았다면..

    tbl.Edit //테이블을 수정할수 있는 상태로 바꾸고..

    tbl![불량수량] = tbl![불량수량] + addcnt // 필드('불량수량')의 값을 더함

    tbl.Update //테이블 수정

    panel3d7.Caption = tbl![불량수량] //판넬의 캡션에 필드(불량수량)의 값을 출력

    End If



    에궁.. 대충 적어보았는데 맞는지 모르겠네여..



    틀리더라도 절 지탄하시면 안되여~~



    도움이 되기를 바라구요.



    그리고, 사발님 제발 사부라고 부르지 마세요.. ^^; 부탁입니다..



    그럼 ~ 즐거운 프로그래밍 하시길~~



  • Profile
    사바리.. • 2000.07.29 18:34
    이구 이구 창민싸부.... 제자루 받아줘엽.....ㅠ.ㅠ



    글구 12일날 설가고프당.. 싸부의 세미나를 보러여 캬캬캬 ^^



    대답 감솨하구여... 더운날 몸건강 하셔유



    ###################################################################### 제자 사바리캬캬캬
←First Page
2337 2338 2339 2340 2341 2342 2343 2344 2345 2346
Last Page→
한델 로그인 하기