主题：[求助]

Dim cmd1 As New SQLCommand

Dim cmd2 As New SQLCommand

cmd1.C

cmd2.C

Dim dt As DataTable

Dim shenheren As String = "test"

Dim danhao As String = e.Form.Controls("danhao").value

Dim shipanshu As Integer

Dim shiyongren As String

Dim quyu As String

Dim diqu As String

Dim bianhao As String

If danhao = "" Then

    Messagebox.show("请输入盘点单号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

cmd1.CommandText = "Select * From {Zpandianbiao} Where danhao = '" & danhao & "' "

If cmd1.ExecuteScalar < 1 Then

    Messagebox.show("修改失败,找不到此盘点记录!","提 示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

Else

    dt = cmd1.ExecuteReader

    cmd1.CommandText = "Update {Zpandianbiao} Set [shenheren] = '" & shenheren & "' Where [danhao] = '" & danhao & "'"

End If

For Each dr As DataRow In dt.DataRows

    bianhao = dr("bianhao")

    shipanshu = dr("shipanshu")

    shiyongren = dr("shiyongren")

    quyu = dr("quyu")

    diqu = dr("diqu")

    cmd2.CommandText = "Update {Zzichanbiao} Set shuliang = " & shipanshu & ", shiy, quyu = '" & quyu & "', diqu = '" & diqu & "' Where bianhao = '" & bianhao & "'"

Next

If cmd2.ExecuteNonQuery > 0 Then '返回1表示更改成功

    Messagebox.show("审核成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Tables("盘点表_Table1").DataTable.Load()

    Vars("_AddEdit")=0

    e.Form.Controls("修改").Enabled = True

    e.Form.Controls("删除").Enabled = True

    e.Form.Controls("保存").Enabled = False

    e.Form.Controls("取消").Enabled = False

Else

    Messagebox.show("更改失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

查询SQL数据表Zpandianbiao、Zzichanbiao时，发现两个表都没有更新。

－－－－－－－－－－－－－－－－－－－－－

代码2：