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

Registered : 108,456

HOME > .NET Framework > Forum > [VB.NET]ตัวเลขไม่ยอมหักค่าตามจำนวนที่ป้อน แต่แทนที่ด้วยติดลบแทน



 

[VB.NET]ตัวเลขไม่ยอมหักค่าตามจำนวนที่ป้อน แต่แทนที่ด้วยติดลบแทน

 



Topic : 129147



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



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




Code (VB.NET)
    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        If txtEmployeeID.Text = "" Then
            MessageBox.Show("กรุณาระบุรหัสพนักงาน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtEmployeeID.Focus()
            Exit Sub
        End If

        If lsvPrintColorList.Items.Count = 0 Then
            MessageBox.Show("กรุณาป้อนรายการเบิกสีหมึก !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtPrintCLID.Focus()
            Exit Sub
        End If

        Dim sqlDisclose As String = ""
        Dim comDisclose As OleDbCommand = New OleDbCommand

        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

        Try
            If MessageBox.Show("คุณต้องการบันทึกรายการเบิกสีหมึก ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

                AutoGenerateTranID()

                sqlDisclose = "INSERT INTO Disclose (TransID,EmployeeID) "
                sqlDisclose &= " VALUES('" & LastTransID & "',"
                sqlDisclose &= "'" & txtEmployeeID.Text & "')"

                With comDisclose
                    .CommandType = CommandType.Text
                    .CommandText = sqlDisclose
                    .Connection = Conn
                    .ExecuteNonQuery()
                End With

                Dim i As Integer = 0
                Dim tmpPrintCLID As String = ""

                Dim sqlPrintColor As String = ""
                Dim tmpColorInShop As Integer = 0
                Dim tmpColorInDisclose As Integer = 0

                Dim tmpDiscloseNum As Integer = 0
                Dim tmpDate_Disclose As Date


                tmpDate_Disclose = Date.Now

                For i = 0 To lsvPrintColorList.Items.Count - 1
                    sqlDisclose = "INSERT INTO DiscloseDetail(TransID,PrintCLID,Date_Disclose,DiscloseNum)"
                    sqlDisclose &= " VALUES('" & LastTransID & "',"

                    tmpPrintCLID = lsvPrintColorList.Items(i).SubItems(0).Text

                    tmpDiscloseNum = CInt(lsvPrintColorList.Items(i).SubItems(2).Text)

                    sqlDisclose &= "'" & tmpPrintCLID & "',"
                    sqlDisclose &= "'" & tmpDate_Disclose & "',"
                    sqlDisclose &= tmpDiscloseNum & ")"

                    With comDisclose
                        .CommandText = sqlDisclose
                        .ExecuteNonQuery()
                    End With

                    sqlDisclose = "SELECT PrintCLID,ColorInShop,ColorInDisclose FROM PrintColor"
                    sqlDisclose &= " WHERE (PrintCLID='" & tmpPrintCLID & "')"

                    da.SelectCommand.CommandText = sqlDisclose
                    da.Fill(ds, "PrintColor")

                    If IsDBNull(ds.Tables("PrintColor").Rows(0).Item("ColorInShop")) Then
                        tmpColorInShop = 0
                    Else
                        tmpColorInShop = CInt(ds.Tables("PrintColor").Rows(0).Item("ColorInShop"))
                    End If

                    If IsDBNull(ds.Tables("PrintColor").Rows(0).Item("ColorInDisclose")) Then
                        tmpColorInDisclose = 0
                    Else
                        tmpColorInDisclose = CInt(ds.Tables("PrintColor").Rows(0).Item("ColorInDisclose"))
                    End If
                    ds.Tables("PrintColor").Clear()

                    sqlDisclose = "UPDATE PrintColor"
                    sqlDisclose &= " SET ColorInShop=" & tmpColorInShop - tmpDiscloseNum & ","
                    sqlDisclose &= " ColorInDisclose=" & tmpColorInDisclose + tmpDiscloseNum
                    sqlDisclose &= " WHERE (PrintCLID='" & tmpPrintCLID & "')"

                    With comDisclose
                        .CommandText = sqlDisclose
                        .ExecuteNonQuery()
                    End With
                Next


                MessageBox.Show("บันทึกรายการเบิกสีหมึกเรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)


                ClearAllEmployeeData()
                ClearAllPrintColorData()
                lsvPrintColorList.Items.Clear()


                cboDepartment.SelectedIndex = 0
                txtEmployeeID.Enabled = True
                txtEmployeeID.Focus()
            End If

        Catch ErrProcess As Exception
            MessageBox.Show("ไม่สามารถบันทึกรายการเบิกสีหมึกได้ เนื่องจาก " & ErrProcess.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End Try
    End Sub


ขอคำแนะนำจากผู้เชี่ยวชาญหน่อยครับ
คือก่อนหน้านี้ผมทำฟอร์มนี้ขึ้นมาแล้วทำการรันได้ตามปกติ
แต่พอมาตอนนี้กลับมีปัญหาครับ
มีปัญหาที่ฟิลด์ ColorInShop ครับ ไม่ยอมหักค่าตามจำนวนที่ป้อนลงไป แต่มันแทนค่าด้วยติดลบจำนวนที่ป้อนแทน เหมือนมันมอง
เป็นค่า 0 อะครับ แต่ในฐานข้อมูลฟิลด์นี้ผมเซ็ตไว้เป็น 99 ครับ
รบกวนผู้เชี่ยวชาญตรวจสอบให้หน่อยครับว่าผมพลาดตรงไหน

ช่วงบรรทัดที่ 75 เป็นต้นไปครับ



Tag : .NET, Ms Access, VBScript, Win (Windows App), VB.NET









ประวัติการแก้ไข
2017-10-09 14:32:22
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2017-10-09 14:31:49 By : ford24832 View : 529 Reply : 2
 

 

No. 1



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



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


โค้ดด้านบนก็บอกอยู่แล้วว่าเพิ่ง INSERT tmpPrintCLID เข้าไป
แสดงว่า tmpPrintCLID ก็ไม่น่าจะมีค่า อยู่แล้วไม่ใช่รึครับ
tmpColorInShop จะเป็น 0 ตลอด เพราะ เพิ่ง INSERT tmpPrintCLID เข้าไป ตามว่าครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-10-09 16:07:42 By : Dr.K
 


 

No. 2



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



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


ตอบความคิดเห็นที่ : 1 เขียนโดย : Dr.K เมื่อวันที่ 2017-10-09 16:07:42
รายละเอียดของการตอบ ::
ค่า PrintCLID มันเป็นค่าไอดีของสีหมึกเครื่องปริ้นอะครับ
งั้นแสดงว่าผมต้องเอาออกใช่ไหมครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-10-10 08:52:45 By : ford24832
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : [VB.NET]ตัวเลขไม่ยอมหักค่าตามจำนวนที่ป้อน แต่แทนที่ด้วยติดลบแทน
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , รับทำบัญชี , โรงงานผลิตครีม , สำนักงานบัญชี , รับจดทะเบียนบริษัท , Pangpond , รถมือสอง

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