记录未在表中更新 [英] Record not updated in the table

问题描述

我有更新数据的问题。更改时数据没有更新..

请查看我的编码

Hi,
i''m having problem updating data. Data didnt updated when changes are made..
Please look at my coding

cmd2 = New SqlCommand("Select * From TLoct Where Loct= 'TST1' And PCode=@PCode And Batch= @Batch And Run=@Run And OnHand >0 ", cn2)
            cmd2.Parameters.AddWithValue("@PCode", rs.Tables("TPlt").Rows(0).Item("PCode"))
            cmd2.Parameters.AddWithValue("@Batch", txtBatch.Text)
            cmd2.Parameters.AddWithValue("@Run", txtRun.Text)
            Dim sqlDa2 As SqlDataAdapter
            sqlDa2 = New SqlDataAdapter(cmd2)
            Dim rs2 As DataSet = New DataSet
            sqlDa2.Fill(rs2, "TLoct")
            If rs2.Tables("TLoct").Rows.Count = 0 Then
                MsgBox("No stock at TST1", MsgBoxStyle.Critical)
                Exit Sub
            Else
                Dim dt As DataTable = rs2.Tables("TLoct")
                'MsgBox(rs2.Tables("TLoct").Rows(0).Item("OutputQty") + rs.Tables("TPlt").Rows(0).Item("FullQty") + rs.Tables("TPlt").Rows(0).Item("LsQty"))
                dt.Rows(0)("OutputQty") = rs2.Tables("TLoct").Rows(0).Item("OutputQty") + rs.Tables("TPlt").Rows(0).Item("FullQty") + rs.Tables("TPlt").Rows(0).Item("LsQty")
                dt.Rows(0)("OnHand") = dt.Rows(0)("OnHand") - rs.Tables("TPlt").Rows(0).Item("FullQty") - rs.Tables("TPlt").Rows(0).Item("LsQty")
                dt.Rows(0)("EditUser") = txtEmpNo.Text & "@" & txtName.Text
                dt.Rows(0)("EditDate") = Format(Now, "dd-mmm-yyyy")
                dt.Rows(0)("EditTime") = Format(Now, "hh:mm")
                dt.AcceptChanges()
            End If

推荐答案

但是你还没有写下即将发生的错误，但仍然在看到你的代码之后我发现了可能导致不更新的可疑行

However you have not written the error which is coming but still after watching your code i found following suspicious line which may cause in not updation

dt.Rows(0)("OnHand") = dt.Rows(0)("OnHand") - rs.Tables("TPlt").Rows(0).Item("FullQty") - rs.Tables("TPlt").Rows(0).Item("LsQty")

修改如下

modify it as following

dt.Rows(0)("OnHand") = val(dt.Rows(0)("OnHand")) - val(rs.Tables("TPlt").Rows(0).Item("FullQty")) - val(rs.Tables("TPlt").Rows(0).Item("LsQty"))

i希望它有效.....

i hope it works.....

这篇关于记录未在表中更新的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！