Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,037

HOME > ASP > ASP Forum > การแสดงข้อมูลส่งต่ออีกหน้าครับ....ผมจะส่งค่าไปแสดงอีกหน้าครับโดยที่ดึงค่าใน database มาแสดงก่อนตามรูปครับ



 

การแสดงข้อมูลส่งต่ออีกหน้าครับ....ผมจะส่งค่าไปแสดงอีกหน้าครับโดยที่ดึงค่าใน database มาแสดงก่อนตามรูปครับ

 



Topic : 072749



โพสกระทู้ ( 215 )
บทความ ( 0 )



สถานะออฟไลน์




ผมจะส่งค่าไปแสดงอีกหน้าครับโดยที่ดึงค่าใน database มาแสดงก่อนตามรูปครับ

renew

แล้วช่องสุดท้ายของแต่ละเรคคอร์ดผมกรอกข้อมูลเอง
ผมต้องการแค่ 2 เรคคอร์อแรกไปแสดงครับต้องทำไง
ผมใช้ foreach แล้วมันมีสองค่าครับคือ
1. docnum
2.paid
ครับผมเลยไม่ทราบว่าจะแก้ไง
ขอคำแนะนำด้วยนะครับ
ขอบคุณล่วงหน้าครับ



Tag : ASP, Ms SQL Server 2005






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-01-27 08:59:17 By : e_tawee View : 1740 Reply : 7
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

เอา Code หน้า Design ของคุณมาดูหน่อยครับ





แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-27 09:05:39 By : webmaster
 


 

No. 2



โพสกระทู้ ( 215 )
บทความ ( 0 )



สถานะออฟไลน์


หน้าที่แสดงข้อมูลนะครับ

Code (ASP)
 <table width="615" border="1" cellpadding="0" cellspacing="0">
  <tr bgcolor="#666666">
    <td width="166" height="41"><div align="center" class="style17"><span class="style13">Customer</span></div></td>
    <td width="91"><div align="center"><strong><span class="style14">Docnum</span></strong></div></td>
    <td width="86"><div align="center"><strong><span class="style15">Post Date</span></strong></div></td>
    <td width="262"><div align="center"><strong><span class="style16">Balance Due</span></strong></div></td>
  </tr>
</table>

  <% 
   dim chkVol
For Each chkVol in Request.Form("doc")
strSQL = " select distinct o.docnum,o.cardname,o.docdate,o.doctotal,r.objtype,r.address from oinv o inner join inv1 i on o.docentry=i.docentry inner join ocrd r on o.cardcode=r.cardcode " 
strSQL = strSQL & " where o.docstatus='o'  and o.docnum= '"&chkVol&"' "
''response.Write(strSQL)
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3
%>
  </p>
  <table width="615" border="1" cellpadding="0" cellspacing="0">
  <%
	While Not objRec.EOF
	
	if codeline<>objRec.Fields(2).Value then
codeline = objRec.Fields(2).Value

%>
    <tr onMouseOver="show(this)" onMouseOut="move(this)" class="even">
      <td width="191"><%=objRec.Fields(1).Value%></td>
      <td width="100"><div align="center"><%=objRec.Fields(0).Value%></div></td>
		  
      <td width="88"><div align="center"><%=objRec.Fields(2).Value%></div></td>
      <td width="294">
        <div align="right"><font color="#CC3300"> 
         
        </font>        <%
		response.write(formatnumber(objRec.Fields(3).Value))
pvsum=cdbl(pvsum)+cdbl(objRec.Fields(3).Value)
		%></div></td>
    </tr>
      
  <%
  else 
  %>
  

  <%
  End if
	objRec.MoveNext
	Wend
%>
  </table>
  <div align="center">
  <%
  Next
  %>
  <%
 
objRec.Close()
	Conn.Close()
	Set objRec = Nothing
	Set Conn = Nothing	
	
	%>

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-27 09:07:58 By : e_tawee
 

 

No. 3



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

คุณไปออกแบบพวก textbox และใส่ checkbox ก่อนครับ แล้วค่อยเอามาให้ดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-27 09:10:58 By : webmaster
 


 

No. 4



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

หรือไม่ดูตัวอย่างนี้ครับ



Go to : ASP Microsoft Access Multiple Checkbox Delete Record

คงจะไม่ยากเกินความสามารถขอบคุณ ถ้าคุณตั้งใจ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-27 09:12:22 By : webmaster
 


 

No. 5



โพสกระทู้ ( 215 )
บทความ ( 0 )



สถานะออฟไลน์


นี้ code ของหน้านี้ครับ

renew

Code (ASP)
 <form action="show_incoming.asp" method="post" name="form" target="_blank">
<table width="658" border="1" cellpadding="0" cellspacing="0">
    <tr bgcolor="#666666">
      <th width="21">&nbsp;</th>
      <th width="165"><span class="style9">Customer</span></th>
      <th width="87" height="47"><span class="style9">Docnum</span></th>
	  
      <th width="95"><span class="style9">Post Date</span></th>
	  <th width="132"><span class="style9">Balance Due</span></th>
      <th width="144"><span class="style9">Paid</span></th>
    </tr>
  <%
	While Not objRec.EOF
	
	if codeline<>objRec.Fields(2).Value then
codeline = objRec.Fields(2).Value

%>
    <tr onMouseOver="show(this)" onMouseOut="move(this)" class="even">
      <td>
        <label>
          <input type="checkbox" name="doc" id="checkbox" value="<%=objRec.Fields(0).Value%>">
          </label>      </td>
      <td><%=objRec.Fields(1).Value%></td>
      <td><div align="center"><%=objRec.Fields(0).Value%></div></td>
		  
      <td><div align="center"><%=objRec.Fields(2).Value%></div></td>
      <td>
        <div align="right"><font color="#CC3300"> 
         
        </font>        <%
		response.write(formatnumber(objRec.Fields(3).Value))
dim tr,tr1,tr2
tr=objRec.Fields(1).Value
tr1=objRec.Fields(5).Value
tr2=objRec.Fields(0).Value
		%></div></td>
      <td><label>
        <input name="paid" type="text" id="textfield" maxlength="20" value="<%=objRec.Fields(3).Value%>">
      </label></td>
    </tr>
   
        <%
		
  dim pvsum
  pvsum=cdbl(pvsum)+cdbl(objRec.Fields(3).Value)
  else 
 
  End if

	objRec.MoveNext
	Wend
%>
  </table>
  <div align="center"><table width="372" border="0">
  <tr>
    <th width="366" scope="col">
      <div align="right">
       
        <table width="323" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <th width="152" height="35" scope="col"><div align="right">Total BalanceDue :: </div></th>
        <th width="109" scope="col"><div align="right">
      
              <font color="#FF0000">
                <%
response.write(formatnumber(pvsum))
		%>
              </font></div></th>
      </tr>
    </table></div></th>
  </tr>
</table></div>
<table width="522" border="0" cellpadding="0" cellspacing="0">

    <td width="350"><div align="right">
      <input name="customer" type="hidden" value="<%response.Write(tr)%>">
      <input name="address" type="hidden" value="<%response.Write(tr1)%>">
      <input name="docnum" type="hidden" value="<%response.Write(tr2)%>">
    <input type="submit" value="   Show   ">
    </div></td>
 
</table>

 </form>

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-27 09:17:10 By : e_tawee
 


 

No. 6



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Code (ASP)
 <form action="show_incoming.asp" method="post" name="form" target="_blank">
<table width="658" border="1" cellpadding="0" cellspacing="0">
    <tr bgcolor="#666666">
      <th width="21">&nbsp;</th>
      <th width="165"><span class="style9">Customer</span></th>
      <th width="87" height="47"><span class="style9">Docnum</span></th>
	  
      <th width="95"><span class="style9">Post Date</span></th>
	  <th width="132"><span class="style9">Balance Due</span></th>
      <th width="144"><span class="style9">Paid</span></th>
    </tr>
  <%
  Dim i
  i = 0
	While Not objRec.EOF
	
	if codeline<>objRec.Fields(2).Value then
codeline = objRec.Fields(2).Value
i = 1 + 1
%>
    <tr onMouseOver="show(this)" onMouseOut="move(this)" class="even">
      <td>
        <label>
          <input type="checkbox" name="doc<%=i%>" id="doc<%=i%>" value="<%=objRec.Fields(0).Value%>">
          </label>      </td>
      <td><%=objRec.Fields(1).Value%></td>
      <td><div align="center"><%=objRec.Fields(0).Value%></div></td>
		  
      <td><div align="center"><%=objRec.Fields(2).Value%></div></td>
      <td>
        <div align="right"><font color="#CC3300"> 
         
        </font>        <%
		response.write(formatnumber(objRec.Fields(3).Value))
dim tr,tr1,tr2
tr=objRec.Fields(1).Value
tr1=objRec.Fields(5).Value
tr2=objRec.Fields(0).Value
		%></div></td>
      <td><label>
        <input name="paid<%=i%>" type="text" id="paid<%=i%>" maxlength="20" value="<%=objRec.Fields(3).Value%>">
      </label></td>
    </tr>
   
        <%
		
  dim pvsum
  pvsum=cdbl(pvsum)+cdbl(objRec.Fields(3).Value)
  else 
 
  End if

	objRec.MoveNext
	Wend
%>

<input type="hidden" name="line" value="<%=i%>">
  </table>
  <div align="center"><table width="372" border="0">
  <tr>
    <th width="366" scope="col">
      <div align="right">
       
        <table width="323" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <th width="152" height="35" scope="col"><div align="right">Total BalanceDue :: </div></th>
        <th width="109" scope="col"><div align="right">
      
              <font color="#FF0000">
                <%
response.write(formatnumber(pvsum))
		%>
              </font></div></th>
      </tr>
    </table></div></th>
  </tr>
</table></div>
<table width="522" border="0" cellpadding="0" cellspacing="0">

    <td width="350"><div align="right">
      <input name="customer" type="hidden" value="<%response.Write(tr)%>">
      <input name="address" type="hidden" value="<%response.Write(tr1)%>">
      <input name="docnum" type="hidden" value="<%response.Write(tr2)%>">
    <input type="submit" value="   Show   ">
    </div></td>
 
</table>

 </form>


Code (show_incoming.asp)
<%
Dim  i 
For i = 1 To Cint(Request.Form("line"))
	IF Request.Form("doc" & i ) <> "" Then
		Response.write Request.Form("paid" & i )  & "<br>"
	End IF
Next
%>


ผมเขียนสด ลองดู Syntax ด้วยครับ เผื่อจะผิด
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-27 09:27:11 By : webmaster
 


 

No. 7



โพสกระทู้ ( 215 )
บทความ ( 0 )



สถานะออฟไลน์


ไม่เห็ฯมีไรเลยครับไม่ออกมาสักตัวเลยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-27 15:41:02 By : e_tawee
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : การแสดงข้อมูลส่งต่ออีกหน้าครับ....ผมจะส่งค่าไปแสดงอีกหน้าครับโดยที่ดึงค่าใน database มาแสดงก่อนตามรูปครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่