 |
| |
จะให้ซับทำงานอย่างละรอบค่ะ คือเขียน sub ไว้ 4 sub ในหน้า update.aspx.vb ค่ะแล้วทีนี้ก็ใส่แบบนี้ค่ะ |
| |
 |
|
|
 |
 |
|
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 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ไม่ได้ค่ะ ได้ 10 ค่า เหมือนเดิมค่ะ
|
| |
|
|
| |
| Date :
2010-02-25 15:25:55 |
By :
Angel_baba |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เพิ่มเติมให้น่ะค่ะ
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 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่ได้ค่ะ
ใน sub เขียนคำสั่ง select ค่าออกมา แล้วใช้ for insert ข้อมูลลงตารางค่ะ ไม่ทราบว่าจะเกี่ยวหรือไม่
|
| |
|
|
| |
| Date :
2010-02-25 17:02:08 |
By :
Angel_baba |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ต้องการทำอะไร หรอครับ อ่าน โจทย์ แล้วมองความต้องการไม่ออก เลย
|
| |
|
|
| |
| Date :
2010-02-25 19:17:01 |
By :
ksillapapan |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ต้องการให้ sub ทำงานอย่างละรอบค่ะ
|
| |
|
|
| |
| Date :
2010-02-25 19:56:27 |
By :
Angel_baba |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ตามทฤษฎีใส่ 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 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
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 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
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 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เห็นด้วยทุกสิ่งค่ะ ถ้าจะทำซ้ำก้อคงเพราะ loop แบบนี้ค่ะ
|
| |
|
|
| |
| Date :
2010-02-26 10:58:39 |
By :
blurEye |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ได้แล้วค่ะ ขอบคุณทุกๆคำตอบนะค่ะ เป็นเพราะ loop จิงๆค่ะ
|
| |
|
|
| |
| Date :
2010-02-26 14:15:21 |
By :
Angel_baba |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
