Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > วนลูปบันทึก ด่วนมากค่ะ วนลูปบันทึกค่ะเออเรอค่ะ ช่วยดูให้หน่อยนะคะ ไม่รุ้เขียนโค้ดถูกหรือเปล่า

วนลูปบันทึก ด่วนมากค่ะ วนลูปบันทึกค่ะเออเรอค่ะ ช่วยดูให้หน่อยนะคะ ไม่รุ้เขียนโค้ดถูกหรือเปล่า

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

Guest

วนลูปบันทึกค่ะเออเรอค่ะ ช่วยดูให้หน่อยนะคะ ไม่รุ้เขียนโค้ดถูกหรือเปล่า

If (Request("chkbxnm_accessnew") <> "") then
("chkbxnm_accessnew")
gtotalLine = request("total_line")
for i = 1 to gtotalLine
if lcase(request("chkbxnm_accessnew"&i))= "on" then
sql = ""
sql = "Insert Into VSC_OPN_MST"
sql = sql & " (OM_OPN_CD,"
sql = sql & " OM_OPN_NM,"

sql = sql & " OM_SUP_CD,"
sql = sql & " OM_GRP_CD,"
sql = sql & " OM_STK_AMT,"

sql = sql & " OM_FR_DT,"
sql = sql & " OM_DISPLAY,"
sql = sql & " OM_CRE_BY,"
sql = sql & " OM_CRE_DT) "

sql = sql & " Values ('"&Session("RidNew_access")&"' , "
sql = sql & " '"&Request("nmaccessnew1")&"' , "

sql = sql & " '"&Request("chkbxnm_accessnew")&"', "
sql = sql & " '"&Request("codeaccessnew1")&"', "
sql = sql & " '"&Request("nmaccessnew2")&"', "

sql = sql & " '"&Request("begin_date")&"' , "
sql = sql & " '"&Request("codeaccessnew3")&"' , "

sql = sql & " '" &Session("IduNew_access")& "' , "
sql = sql & " '" &DateNow& "' )"
set rs = conn.execute(sql)
หน้าจอเป็นแบบนี้ค่ะ มี ตัว checkbox มาให้เลือกติ๊ก แทนด้วย ..... textbox แทนด้วย____
เราสามารถเลือกผู้จำหน่ายได้มากกว่า 1 ค่ะ
ชื่ออุปกรณ์ ______
ผู้จำหน่าย
... นาย ก
... นาย ข
....นาย ค
ลืมบอกไปค่ะ พอเลือกแล้วกด บันทึก
มันเออเรอแบบนี้ค่ะ
Type mismatch: 'Cdbl'
( บรรทัดนี้ If (Cdbl(Request("nmaccessnew11")) > 0) then )
access_new_vat_pr = 0.00
access_new_buy_pr = ""
access_new_buy_pr = Request("nmaccessnew11")
If (access_new_buy_pr <> "") then
If (Cdbl(access_new_buy_pr) > 0) then

access_new_vat_pr = (Cdbl(access_new_buy_pr) * Cdbl(access_new_vat)) + Cdbl(access_new_buy_pr)
Else
access_new_vat_pr = 0.00
End If
Else

access_new_buy_pr = 0.00
End If
เป็นโค้ด ตอนที่ กรอกราคาให้กับผู้จำน่ายอุปกรณ์แต่ละเจ้าน่ะค่ะ
ชื่ออุปกรณ์ ______
ผู้จำหน่าย
... นาย ก ราคาทุน__ ราคาขายก่อน vat __
... นาย ข ราคาทุน__ ราคาขายก่อน vat __
....นาย ค ราคาทุน__ ราคาขายก่อน vat __

Tag : - - - -

Date : 3 ต.ค. 2549 11:15:41

By : isis_preaw

View : 2015

Reply : 9

No. 1

Guest

ลอง
response.write Request("nmaccessnew11")
response.end
จากนั้นดูสิครับว่าค่าที่ได้ออกมานั้นมันเป็นค่าอะไร ชนิดข้อมูลอะไร แปลงเป็นชนิดข้อมูล double โดยใช้ Cdbl ได้หรือไม่นะครับ

Date : 3 ต.ค. 2549 11:47:27

By : Ton

No. 2

Guest

response.write Request("nmaccessnew11")
response.end

ใช้แล้วค่ะ ไม่เห้นมีอะไรออกมาเลยค่ะ
เอาไปใส่ไว้ตรง

access_new_buy_pr = Request("nmaccessnew11")

response.write Request("nmaccessnew11")
response.end

If (access_new_buy_pr <> "") then
If (Ccur(Request("nmaccessnew11")) > 0) then
access_new_vat_pr = (Ccur(access_new_buy_pr) * Ccur(access_new_vat)) + Ccur(access_new_buy_pr)
Else
access_new_vat_pr = 0.00
End If
Else
access_new_buy_pr = 0.00
End If

ไม่รู้ว่าจะถูกรึเปล่าน่ะค่ะ

Date : 3 ต.ค. 2549 12:05:16

By : isis_preaw

No. 3

Guest

ขอโทษทีนะคะที่ตอบช้า พอดีไม่ได้เข้ามาหลายวันน่ะค่ะ

if lcase(request("chkbxnm_accessnew"&i))= "on" then
หมายถึง checkbox อันนั้นเราได้มีการ click เลือกน่ะค่ะ

ในส่วนของที่ error ก็น่าจะเป็นอย่างที่คุณต้นบอกนะคะว่าพอเราใส่ function cdbl ไปแต่ว่าตัวแปรที่เราเอา function ไปครอบไม่ได้เป็นตัวเลขมันก็เลยแจ้ง error ว่า type mismatch หรือไม่ก็ลองเอา function cdbl ออกดูก่ิอนนะคะ่ว่าจะ error หรือเปล่า ถ้าไม่ได้ยังงัยบอกอีกทีนะคะ เดี๋ยวจะเข้ามาดูบ่อยๆ

Date : 3 ต.ค. 2549 12:05:54

By : มักกะโรนีกะหมากเก็บ

No. 4

Guest

ขอบตุนนะคะ
พอเอาออกแล้วมันก้อยังเออเรอค่ะ type mismatch ในฐานข้อมูลก็กำหนดให้มันเป็น int นะคะ
เฮ่อ ปัญหาเก่ายังไม่ทันหมดปัญหาใหม่ตามมาว่า
สมมติหน้านี้เป้นหน้าเพิ่มข้อมูล
แล้วเวลาคีย์ขิ้มูลเสร็จจะกดปุ่มบันทึก
ให้มันเชคก่อนว่า ข้อมูลในฟิลดิ์ A ที่จะแอดลงไปมีอยู่แล้วหรือไม่
ถ้ามีให้รัน z ต่อไปในฟิลดิ์ A
เพิ่มใหม่มีอีก รัน y ต่อไปในฟิลดิ์ A
เพิ่มใหม่มีอีก รัน x ต่อไปในฟิลดิ์ A เรื่อยๆน่ะค่ะ
เขียนโค้ดยังไงคะ
เอาทีละปัญหาก่อนก้อได้คะ

Date : 3 ต.ค. 2549 12:43:33

By : isis_preaw

No. 5

Guest

ถ้าอย่างนั้นนะคะ ตามที่คุณบอกว่าเอา function ออกแล้วยัง error แล้วคุณลอง response.write Request("nmaccessnew11") ออกมาแล้วและไม่มีค่าหรือเป็นช่องว่าง ดังนั้นมันเลยทำให้เวลาที่เรา check if แล้วเอาค่ามาเปรียบเทียบว่าค่าที่รับมา > 0 หรือเปล่า (If (Cdbl(Request("nmaccessnew11")) > 0) then ) มันก็เลย error น่ะค่ะ เพราะว่ามันไม่รู้ว่าจะเอาค่าอะไรมาเปรียบเทียบกับ 0 ค่ะ น่าจะตรวจสอบอย่างนี้นะคะ ลองตรวจสอบดูค่าของตัวแปร nmaccessnew11 ว่าชื่อของตัวแปรที่ถูกส่งมาว่าถูกหรือเปล่า

Date : 3 ต.ค. 2549 13:40:44

By : มักกะโรนีกะหมากเก็บ

No. 6

Guest

ชื่อก็ถูกอ่ะค่ะ
ไม่รู้จะทำยังไงแล้วค่ะ
โค้ดตรงที่เออเรอคือ
ถ้าในช่องที่ให้กรอกราคาทุน กะราคาขาย ไม่ว่างให้
เอาช่องราคาขาย*กะฟิลด์ราคา vat ในตาราง vat น่ะ
แล้วจึงบันทึกข้อมุล
ถ้าว่างให้ 0

Date : 3 ต.ค. 2549 14:44:51

By : isis_preaw

No. 7

Guest

ลองเปลี่ยนเป็นแบบนี้ดูได้ไหมค่ะ
คือเราเช็คก่อนว่าต้องไม่ใช่ค่าว่างแล้วค่อยเช็คว่า > 0 หรือเปล่า

access_new_buy_pr = trim(Request("nmaccessnew11"))
access_new_vat_pr = 0.00

IF not isnull(access_new_buy_pr) or access_new_buy_pr <> "" THEN
If (Cdbl(access_new_buy_pr) > 0) then
access_new_vat_pr = (Cdbl(access_new_buy_pr) * Cdbl(access_new_vat)) + Cdb(access_new_buy_pr)
Else
access_new_vat_pr = 0.00
End If
Else
access_new_buy_pr = 0.00
End If

Date : 3 ต.ค. 2549 14:56:52

By : มักกะโรนีกะหมากเก็บ

No. 8

Guest

เอาไว้ก่อนดีกว่าค่ะ มันยังเออเรอของมัน Type mismatch: '[string: "1000, 0, 0"]'
เอาอันอื่นก่อนดีกว่า ตอนนี้จะอวกแล้วค่ะ ยังไงต้องขอบคุณนะคะที่ช่วยตอบให้
สมมติมีหน้านี้เป้นหน้าเพิ่มข้อมูล
แล้วเวลาคีย์ขิ้มูลเสร็จจะกดปุ่มบันทึก
ให้มันเชคก่อนว่า ข้อมูลในฟิลดิ์ A ที่จะแอดลงไปมีอยู่แล้วหรือไม่
ถ้ามีให้รัน z ต่อไปในฟิลดิ์ A
เพิ่มใหม่มีอีก รัน y ต่อไปในฟิลดิ์ A
เพิ่มใหม่มีอีก รัน x ต่อไปในฟิลดิ์ A เรื่อยๆน่ะค่ะ
เขียนโค้ดยังไงคะ

ไม่ทราบว่าคุณมักกะโรนีมัอีเมล์หรือ ออนเอ็มไหมคะ

Date : 3 ต.ค. 2549 16:51:03

By : isis_preaw

No. 9

Guest

ส่ง email ไปให้แล้วนะคะ

Date : 3 ต.ค. 2549 17:10:27

By : มักกะโรนีกะหมากเก็บ

ค้นหาข้อมูล

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

Re : วนลูปบันทึก ด่วนมากค่ะ วนลูปบันทึกค่ะเออเรอค่ะ ช่วยดูให้หน่อยนะคะ ไม่รุ้เขียนโค้ดถูกหรือเปล่า

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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