 |
| |
วนลูปบันทึก ด่วนมากค่ะ วนลูปบันทึกค่ะเออเรอค่ะ ช่วยดูให้หน่อยนะคะ ไม่รุ้เขียนโค้ดถูกหรือเปล่า |
| |
 |
|
|
 |
 |
|
วนลูปบันทึกค่ะเออเรอค่ะ ช่วยดูให้หน่อยนะคะ ไม่รุ้เขียนโค้ดถูกหรือเปล่า
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 :
2021 |
Reply :
9 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ลอง
response.write Request("nmaccessnew11")
response.end
จากนั้นดูสิครับว่าค่าที่ได้ออกมานั้นมันเป็นค่าอะไร ชนิดข้อมูลอะไร แปลงเป็นชนิดข้อมูล double โดยใช้ Cdbl ได้หรือไม่นะครับ
|
| |
|
|
| |
| Date :
3 ต.ค. 2549 11:47:27 |
By :
Ton |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
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 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอโทษทีนะคะที่ตอบช้า พอดีไม่ได้เข้ามาหลายวันน่ะค่ะ
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 :
มักกะโรนีกะหมากเก็บ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบตุนนะคะ
พอเอาออกแล้วมันก้อยังเออเรอค่ะ type mismatch ในฐานข้อมูลก็กำหนดให้มันเป็น int นะคะ
เฮ่อ ปัญหาเก่ายังไม่ทันหมดปัญหาใหม่ตามมาว่า
สมมติหน้านี้เป้นหน้าเพิ่มข้อมูล
แล้วเวลาคีย์ขิ้มูลเสร็จจะกดปุ่มบันทึก
ให้มันเชคก่อนว่า ข้อมูลในฟิลดิ์ A ที่จะแอดลงไปมีอยู่แล้วหรือไม่
ถ้ามีให้รัน z ต่อไปในฟิลดิ์ A
เพิ่มใหม่มีอีก รัน y ต่อไปในฟิลดิ์ A
เพิ่มใหม่มีอีก รัน x ต่อไปในฟิลดิ์ A เรื่อยๆน่ะค่ะ
เขียนโค้ดยังไงคะ
เอาทีละปัญหาก่อนก้อได้คะ
|
| |
|
|
| |
| Date :
3 ต.ค. 2549 12:43:33 |
By :
isis_preaw |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถ้าอย่างนั้นนะคะ ตามที่คุณบอกว่าเอา 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 :
มักกะโรนีกะหมากเก็บ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ชื่อก็ถูกอ่ะค่ะ
ไม่รู้จะทำยังไงแล้วค่ะ
โค้ดตรงที่เออเรอคือ
ถ้าในช่องที่ให้กรอกราคาทุน กะราคาขาย ไม่ว่างให้
เอาช่องราคาขาย*กะฟิลด์ราคา vat ในตาราง vat น่ะ
แล้วจึงบันทึกข้อมุล
ถ้าว่างให้ 0
|
| |
|
|
| |
| Date :
3 ต.ค. 2549 14:44:51 |
By :
isis_preaw |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองเปลี่ยนเป็นแบบนี้ดูได้ไหมค่ะ
คือเราเช็คก่อนว่าต้องไม่ใช่ค่าว่างแล้วค่อยเช็คว่า > 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 :
มักกะโรนีกะหมากเก็บ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เอาไว้ก่อนดีกว่าค่ะ มันยังเออเรอของมัน Type mismatch: '[string: "1000, 0, 0"]'
เอาอันอื่นก่อนดีกว่า ตอนนี้จะอวกแล้วค่ะ ยังไงต้องขอบคุณนะคะที่ช่วยตอบให้
สมมติมีหน้านี้เป้นหน้าเพิ่มข้อมูล
แล้วเวลาคีย์ขิ้มูลเสร็จจะกดปุ่มบันทึก
ให้มันเชคก่อนว่า ข้อมูลในฟิลดิ์ A ที่จะแอดลงไปมีอยู่แล้วหรือไม่
ถ้ามีให้รัน z ต่อไปในฟิลดิ์ A
เพิ่มใหม่มีอีก รัน y ต่อไปในฟิลดิ์ A
เพิ่มใหม่มีอีก รัน x ต่อไปในฟิลดิ์ A เรื่อยๆน่ะค่ะ
เขียนโค้ดยังไงคะ
ไม่ทราบว่าคุณมักกะโรนีมัอีเมล์หรือ ออนเอ็มไหมคะ
|
| |
|
|
| |
| Date :
3 ต.ค. 2549 16:51:03 |
By :
isis_preaw |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ส่ง email ไปให้แล้วนะคะ
|
| |
|
|
| |
| Date :
3 ต.ค. 2549 17:10:27 |
By :
มักกะโรนีกะหมากเก็บ |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
Load balance : Server 01
