꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	> \\\저도 그렇게 해봤는데 아무것도 값이 없던데.. > 흑흑흑.. > 또봐주세요., > > Private Sub yworkview_UserEvent(ByVal EventName As String) > '등록권자든 조회권자든 작업내용을 눌렀을 때 조회된 ytitleview의 관리번호와 > 'work_m의 관리번호가 같은 모든 자료를 display > 'market_m의 관리번호와 work_m의 관리번호가 같은 것은 일단 모두 display하기 > Dim workado As New ADODB.Recordset > Dim workname As New ADODB.Recordset > Dim WKIND As String > Dim windex As String > Dim ycode As String > 'Dim yshotlen As Integer > 'Dim ytotallen As Integer > 'Dim yshotn As String > 'Dim searchc As String > > > 'eventname=약칭명, 관리번호 > > 'searchc = "," > ' > 'yshotlen = InStr(1, EventName, searchc, 0) '약칭명길이 > 'yshotn = Trim(Mid(EventName, 1, yshotlen - 1)) '약칭명 > ' > 'ytotallen = Len(EventName) > ' > 'ycode = Mid(EventName, yshotlen + 1, (ytotallen - Len(yshotlen) - 1)) '관리번호 > > > With workado > .ActiveConnection = DataEnv.adocon > .Source = "select * from work_m where w_code='" & Session("ycode") & "' order by w_index" > .open > End With > With Response > workado.CacheSize = 20 '레코드를 20개씩 캐시에 저장 > workado.PageSize = 10 '한번에 10개씩 보여주기 > > If workado.RecordCount > 0 Then > If CInt(EventName) = 0 Then > workado.AbsolutePage = 1 '현재 레코드가 들어갈 페이지 > Else > If CInt(EventName) > workado.PageCount Then > workado.AbsolutePage = 1 > Else > workado.AbsolutePage = CInt(EventName) > End If > End If > End If > '============================== > > .write "<br>" > > If workado.RecordCount > 0 Then > .write "<html>" > .write "<head>" > .write "<title>" > .write "</title>" > .write "<script language='javascript'>" > .write "function yworksave() {" > .write " var checkvalue;" > .write " for(var a=1;a<document.yproject.y_radio.length;a++){" > .write " if(document.yproject.y_radio[a].checked==true) {" > .write " checkvalue=document.yproject.y_radio[a].value;" > .write " }" > .write "}" > .write " document.yproject.action='" & URLFor(yworkinsert, Session("ycode") & "," & checkvalue) & "';" > .write " document.yproject.submit();" > .write "}" > > .write "function yworkdelete() {" > .write " var checkvalue;" > .write " for(var a=1;a<document.yproject.y_radio.length;a++){" > .write " if(document.yproject.y_radio[a].checked==true) {" > .write " checkvalue=document.yproject.y_radio[a].value;" > .write " }" > .write "}" > .write " document.yproject.action='" & URLFor(yworkdelete, Session("ycode") & "," & checkvalue) & "';" > .write " document.yproject.submit();" > .write "}" > > > .write "</script>" > .write "</head>" > > .write "<body bgcolor=white text=black link=blue vlink=purple alink=red>" > .write "<p> </p>" > .write "<form method=post name=yproject>" > .write "<center>" > .write "<p align=center><font size=4 color='#6161A6'><b>작업내용 조회</b></font></p>" > .write "<br>" > .write "<table border=1 width=643 height=10 cellspacing=0 bordercolordark=white bordercolorlight=black>" > > .write "<TABLE border=0 cellPadding=1 cellSpacing=1 width=95%>" > .write "<tr><td></td><td align=right>" > > If workado.AbsolutePage = 1 Then > .write "◀ \|" > Else > .write "<a href=" & URLFor(yworkwiew, CStr(workado.AbsolutePage - 1)) & ">◀</a> \|" > End If > If workado.AbsolutePage < workado.PageCount Then > .write "<a href=" & URLFor(yworkview, CStr(workado.AbsolutePage + 1)) & "> ▶</a>" > Else > .write " ▶" > End If > > .write "<td align=right width=80><font size=2> " & CStr(workado.AbsolutePage) & "/" & CStr(workado.PageCount) & "</font></td>" > .write "</tr></table>" > '화면 ==================================== > .write "<br>" > .write "<table border=1 width=95% cellspacing=0 bordercolordark=white bordercolorlight=black>" > .write "<tr>" > .write "<td align=center bgcolor=skyblue width=52><b>선택</b></td>" > ' .write "<td align=center bgcolor=skyblue width=40><b>NUM</b></td>" > .write "<td align=center bgcolor=skyblue width=67><font size=2 color = black><b>관리번호</b></font></td>" > .write "<td align=center bgcolor=skyblue width=67><font size=2 color = black><b>작업일</b></font></td>" > .write "<td align=center bgcolor=skyblue width=67><font size=2 color=black><b>작업종류</b></font></td>" > .write "<td align=center bgcolor=skyblue width=67><font size=2 color=black><b>담당자</b></font></td>" > .write "<td align=center bgcolor=skyblue width=323><font size=2 color=black><b>작업내용</b></font></td>" > > '========================================= > 'db에서 자료 가지고 와서 DISPLAY > Do While Not workado.EOF > > > ' ytrans_msname = yuser.Fields("m_shot_name") '약칭명 > Select Case workado.Fields("w_kind") > Case "U": > WKIND = "수정" > Case "D": > WKIND = "해지" > Case "O": > WKIND = "OPEN" > End Select > > workname.ActiveConnection = DataEnv.adocon > workname.Source = "select u_name from user_m where u_code='" & workado.Fields("w_man") & "'" > workname.open > ' > > .write "<tr>" > > .write "<td align=center bgcolor=white><input type=radio name=y_radio value=" & workado.Fields("w_index") & " ></td>" > ' .write "<td align=center bgcolor=white><font size=2 color=black>" & workado.Fields("w_index") & " </font> </td>" > .write "<td align=center bgcolor=white><font size=2 color=black>" & workado.Fields("w_code") & "</font> </td>" > .write "<td align=center bgcolor=white><font size=2 color=black>" & WKIND & "</font> </td>" > .write "<td align=center bgcolor=white><font size=2 color=black>" & workado.Fields("w_kind") & "</font> </td>" > .write "<td align=center bgcolor=white><font size=2 color=black>" & workname.Fields("u_name") & "</font> </td>" > .write "<td align=right bgcolor=white><font size=2 color=black>" & workado.Fields("w_note") & "</font> </td>" > > workname.Close > Set workname = Nothing > > ycode = workado.Fields("w_code") > windex = workado.Fields("w_index") > > workado.MoveNext > > Loop > > > .write "</tr>" > .write "</table>" > .write "<br>" > > .write "<table border=0 width=600 cellspacing=0 backcolor=whiteblue bordercolordark=white bordercolorlight=black>" > .write "<tr>" > .write "<td width=786>" > .write "<p align=center><br> " > > .write "<a href='javascript:yworksave()'><img src='img/등록.gif' border=0></a> " > ' .write "<a href=" & URLFor(yworkinsert, ycode & "," & windex) & "><img src='img/등록.gif' border=0></a> " > '.write "<a href=" & URLFor(yworkdelete, ycode & "," & windex) & "><img src='img/삭제.gif' border=0></a>" > .write "<a href='javascript:yworkdelete()'><img src='img/삭제.gif' border=0></a>" > .write "</td>" > .write "</tr> " > .write "</table>" > > > > Else '자료가 없다면 > .write "<br>" > .write "<br>" > .write "<p align=center><font size=3 color=blue><b> 검색할 자료가 없습니다.</b></font>" > .write "<br>" > .write "<h3><p align=center><font color=""red"">등록 확인</font></h3>" > .write "<br><br>" > .write "<p align=center> 등록하시겠습니까? <br>" > ' .write "[<a href=" & Chr(34) & URLFor(ydeletesave, EventName) & Chr(34) & ">예</a>] [<a href=" & Chr(34) & URLFor(ysearch, "0") & Chr(34) & ">아니오</a>]<br>" > .write "<p align=center>[<a href=" & URLFor(yworkinsert, EventName) & ">예</a>] [<a href=" & URLFor(ytitleview, EventName) & ">아니오 </a>]<br>" > > > End If > .write "</table>" > .write "</form>" > .write "</body>" > .write "</html>" > '==================================================================== > End With > End Sub > > ----------------------------------------------------------- 제가 해 보닌까 잘 되는데요? 임명님이 버턴 이름이나 폼 이름 또는 변수명에 오타가 있으신거 아닌가요? 아니면 받는쪽에서 변수명이 틀렸거나요... value 안 붙여도 잘 되더군요... 그리고 이건 뭐가 안 된다는건가요? 질문을 정확히 해 주셔야 제가 답을 해 드릴 수가 있죠.. 같이 프로그래밍 한것도 아닌데... 그냥 소스 던져 놓고 봐 달라고 하면... 제가 어떻게 답을 해 드리나요.... 날 더운데... 수고하세요....

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *