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

[open_code]Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim objConn As New System.Data.SqlClient.SqlConnection
        Dim dtAdapter As System.Data.SqlClient.SqlDataAdapter
        Dim dt As New DataTable
        Dim ds As New DataSet
        Dim objCmd As New SqlCommand
        Dim intNumRows As Double
        Dim strConnString, strqr, strSQL As String
        strConnString = "Server=IT-04S\SQLEXPRESS;UID=TestVB;PASSWORD=11111;database=TestVB;Max Pool Size=400;Connect Timeout=600;"
        objConn = New System.Data.SqlClient.SqlConnection(strConnString)
        objConn.Open()
        strSQL = "SELECT * FROM ReportSL"
        'aaaaa = objCmd.ExecuteScalar()
        'objCmd.ExecuteNonQuery()
        dtAdapter = New System.Data.SqlClient.SqlDataAdapter(strSQL, objConn)
        dtAdapter.Fill(ds)
        dt = ds.Tables(0)
        ComboBox1.DataSource = dt
        'dtAdapter.Fill(ds)


        'dtAdapter = Nothing
        'objConn.Close()
        'objConn = Nothing
        If dt.Rows.Count >= 0 Then

            For i = 0 To dt.Rows.Count - 1

                strSQL = "SELECT sum(SUM_CN) FROM QDAILY WHERE CODE = '" & ds.i & "'"
                objCmd = New SqlCommand(strSQL, objConn)
                'Try
                intNumRows = objCmd.ExecuteScalar()
                Label4.Text = intNumRows.ToString()
                Me.Label8.Text = intNumRows
                'Catch ex As Exception
                Me.Label8.Text = intNumRows
                'End Try

                ' '''''''''''''''''''''''''รวมค่าเสร็จแล้ว บัณทึกลงฐานข้อมูล''''''''''''''''''''''''''''''

                strqr = "UPDATE ReportSL SET CNsum = " & Me.Label8.Text & " WHERE IdEmp = '" & dt.Rows.Count & "'"

                objCmd = New SqlCommand(strqr, objConn)

                Try
                    objCmd.ExecuteNonQuery()
                    Me.Label3.Text = "อัพเดทข้อมูลสำเร็จ"
                Catch ex As Exception
                    Me.Label3.Text = "ไม่สามารถบันทึกข้อมูล"
                End Try



            Next
        Else
            TextBox1.Text = "ยังไงดี"
        End If


    End Sub[/close_code]

ยังติด ๆ อยุ่
ตอนนี้ฝีมือยัง งู ๆ ปลา ๆ อยู่ ยังใช้เทคนิคไม่เป้น ช่วยชี้แนะด้วย ครับ พี่ ๆ