Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > จะให้ซับทำงานอย่างละรอบค่ะ คือเขียน sub ไว้ 4 sub ในหน้า update.aspx.vb ค่ะแล้วทีนี้ก็ใส่แบบนี้ค่ะ

จะให้ซับทำงานอย่างละรอบค่ะ คือเขียน sub ไว้ 4 sub ในหน้า update.aspx.vb ค่ะแล้วทีนี้ก็ใส่แบบนี้ค่ะ

เริ่มหัวข้อใหม่

MC.FC

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

คือเขียน sub ไว้ 4 sub ในหน้า update.aspx.vb ค่ะ
แล้วทีนี้ก็ใส่แบบนี้ค่ะ
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
subA()
subB()
subC()
subD()
End Sub

พอค่าที่ได้มันกลับวนค่ะ ไม่ยอมทำ sub ละรอบ อย่างนี้ต้องเขียนอย่างไรหรอคะ ถึงจะให้มันทำงานแค่ซับละรอบ
คือปกติ มันจะได้ sub ละ 1 ค่ะ ถ้าเขียนแค่ครั้งละ sub นะค่ะ
แต่พอใส่ไปพร้อมกัน 4 sub จะได้มา 10 ค่า ค่ะ

Tag : - - - -

Date : 2010-02-25 14:31:40

By : Angel_baba

View : 1143

Reply : 11

No. 1

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

Code (VB.NET)

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

   if(ViewState("RunOnce")=Nothing) Then
      subA()
      subB()
      subC()
      subD()
   End if
   ViewState("RunOnce") = "ok" 

End Sub

Date : 2010-02-25 15:08:06

By : blurEye

No. 2

MC.FC

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

ไม่ได้ค่ะ ได้ 10 ค่า เหมือนเดิมค่ะ

Date : 2010-02-25 15:25:55

By : Angel_baba

No. 3

Guest

เพิ่มเติมให้น่ะค่ะ

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
if(ViewState("RunOnce")=Nothing) Then
subA()
subB()
subC()
subD()
End if
End if
ViewState("RunOnce") = "ok"

End Sub

Date : 2010-02-25 15:35:41

By : guest

No. 4

MC.FC

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

ไม่ได้ค่ะ
ใน sub เขียนคำสั่ง select ค่าออกมา แล้วใช้ for insert ข้อมูลลงตารางค่ะ ไม่ทราบว่าจะเกี่ยวหรือไม่

Date : 2010-02-25 17:02:08

By : Angel_baba

No. 5

Poo_CodeZA

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

ต้องการทำอะไร หรอครับ อ่าน โจทย์ แล้วมองความต้องการไม่ออก เลย

Date : 2010-02-25 19:17:01

By : ksillapapan

No. 6

MC.FC

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

ต้องการให้ sub ทำงานอย่างละรอบค่ะ

Date : 2010-02-25 19:56:27

By : Angel_baba

No. 7

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

ตามทฤษฎีใส่ runonce จะรันแค่ครั้งเดียวค่ะ
ถ้าบอกว่ามีการทำงาน 10 ครั้ง คงเป็นเพราะ LOGIC การเขียนผิดค่ะ
PROVE ได้ หาคำสั่งมาแทน SUB ทั้งหลาย
อย่าง Label1.Text = System.DateTime.Now.ToString()
ซึ่งจะเห็นว่าทำงานแค่ครั้งเดียวค่ะ
ถ้ายังไงตรวจทาน Flow ของ Sub ดีๆนะคะ
หรือจะเอา POST ลงก้อได้ แต่ถ้า Code ยาวๆ
กรุณาปิดหัวท้าย ด้วย Tag Code จะได้อ่านง่ายค่ะ

อ้อ บางครั้งการเขียน ASP.NET อาจเจอกับ Double Postback
คือมี การ PostBack มาสองครั้ง แต่ RunOnce จะหยุดเหตุการณ์นั้นได้ค่ะ

Date : 2010-02-25 20:13:49

By : blurEye

No. 8

MC.FC

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

Sub LeadTime_Air1()
sql = "SELECT * from LeadTime "
ad = New SqlDataAdapter(sql, Conn)
ad.Fill(ds, "MyData")
Dim DView As DataView
DView = ds.Tables("MyData").DefaultView
For Each drowview In DView
Dim LT = drowview.Item("QTY")
sql = "Insert Into MOR_GlobalKPI (YearRang,MonthRang,SUbDivision,KPIClass,KPI,Unit,Currency,KPIValue)values(@YearRang,@MonthRang,@SubDivision,@KPIClass,@KPI,@Unit,@Currency,@KPIValue) "
cmd = New SqlCommand(sql, MConn)
cmd.Parameters.Add("@YearRang", SqlDbType.NVarChar).Value = Now().Year.ToString()
cmd.Parameters.Add("@MonthRang", SqlDbType.NVarChar).Value = Now().Month.ToString()
cmd.Parameters.Add("@SubDivision", SqlDbType.NVarChar).Value = "PL1"
cmd.Parameters.Add("@KPIClass", SqlDbType.NVarChar).Value = "Purchase Order Lead Time"
cmd.Parameters.Add("@KPI", SqlDbType.NVarChar).Value = "Auerage Purchase Order Lead Time(Air) - [Days] PC-L"
cmd.Parameters.Add("@Unit", SqlDbType.NVarChar).Value = "DAY"
cmd.Parameters.Add("@Currency", SqlDbType.NVarChar).Value = ""
cmd.Parameters.Add("@KPIValue", SqlDbType.NVarChar).Value = LT
MConn.Open()
cmd.ExecuteNonQuery()
MConn.Close()
Next

End Sub

ใช้แบบนี้ค่ะ

Date : 2010-02-25 20:27:08

By : Angel_baba

No. 9

numenoy

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

sql = "SELECT * from LeadTime " <<< คุณ select มานี่ ได้กี่ rows
ad = New SqlDataAdapter(sql, Conn)
ad.Fill(ds, "MyData")
Dim DView As DataView
DView = ds.Tables("MyData").DefaultView
For Each drowview In DView <<< แล้วคุณไป for loop insert ตาม rows ที่ select มา

ความจริงผมว่ามันถูกแล้ว คุณต้องลอง check ก่อนว่า คุณได้ กี่ rows กันแน่คุณต้องการ 4 records แต่ select มาได้ 10 records มันก็อาจจะเป็นสาเหตุหนึ่งก็ได้ ^ ^

Date : 2010-02-26 08:29:58

By : numenoy

No. 10

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

เห็นด้วยทุกสิ่งค่ะ ถ้าจะทำซ้ำก้อคงเพราะ loop แบบนี้ค่ะ

Date : 2010-02-26 10:58:39

By : blurEye

No. 11

MC.FC

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

ได้แล้วค่ะ ขอบคุณทุกๆคำตอบนะค่ะ เป็นเพราะ loop จิงๆค่ะ

Date : 2010-02-26 14:15:21

By : Angel_baba

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : จะให้ซับทำงานอย่างละรอบค่ะ คือเขียน sub ไว้ 4 sub ในหน้า update.aspx.vb ค่ะแล้วทีนี้ก็ใส่แบบนี้ค่ะ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก