主题：[求助]求一个ExecuteScalar的用法

贴出你的代码来看看呀。 。 。

Dim Result As DialogResult

Result = MessageBox.Show("您确认将此订单下达到技术订单跟踪表中吗?点击[是]确认下单,点击[否]取消下单", "订单提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

 Dim cmd As New SQLCommand

    Dim dh As String = forms("国内合同表").Controls("ComboBox1").text

    Dim dt As DataTable

    cmd.C

    cmd.CommandText = "SELECT * From {国内合同表} Where [生产订单下达_生产订单号] = '" & dh & "'"

    dt = cmd.ExecuteReader

For Each dr1 As DataRow In dt.DataRows

Dim dr2 As DataRow = DataTables("J425技术订单跟踪").addnew()

    dr2("订单产品信息_合同编号") = dr1("生产订单下达_生产订单号")

    dr2("订单产品信息_项目序号") = dr1("_Identify")

    dr2("订单产品信息_产品名称") = dr1("合同内容_产品订购信息_产品名称")

    dr2("订单产品信息_规格型号") = dr1("合同内容_产品订购信息_产品型号")

    dr2("订单产品信息_单位") = dr1("客户名称")

    dr2("订单产品信息_数量") = dr1("合同内容_价格信息_数量")

    dr2("log_TOSN") = dr1("生产订单下达_生产订单号") & "|" & dr1("_Identify")

    dr1("TOSN") = dr1("生产订单下达_生产订单号") & "|" & dr1("_Identify")

Next

Else

    e.cancel = True

End If

''''''''我想出办法了,但没成功,就是反写一串单号与ID到合同表中,然后

 cmd.CommandText = "SELECT * From {国内合同表} Where [生产订单下达_生产订单号] = '" & dh & "'"

这句时加上一个and [TOSN] = nothing,但我用的反写是    dr1("TOSN") = dr1("生产订单下达_生产订单号") & "|" & dr1("_Identify")

肯定是不行了,MR725老师和狐爸能不能帮我想想办法,怎么将这串值反写回后台表对应的数据行呢?

1、按提取时同样的条件用update更新后台的标记列（做标记）

2、做了标记后，提取时的条件加个标记列＝nothing，这样就不会重复提取了。

我把代码贴上来,请mr725老师和狐爸帮看看,为何运行出错了

Dim Result As DialogResult

Result = MessageBox.Show("您确认将此订单下达到技术订单跟踪表中吗?点击[是]确认下单,点击[否]取消下单", "订单提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

 Dim cmd As New SQLCommand

    Dim dh As String = forms("国内合同表").Controls("ComboBox1").text

    Dim dt As DataTable

    cmd.C

    cmd.CommandText = "SELECT * From {国内合同表} Where [生产订单下达_生产订单号] = '" & dh & "' And [TOSN] = Nothing "

    dt = cmd.ExecuteReader

For Each dr1 As DataRow In dt.DataRows

Dim dr2 As DataRow = DataTables("J425技术订单跟踪").addnew()

    dr2("订单产品信息_合同编号") = dr1("生产订单下达_生产订单号")

    dr2("订单产品信息_项目序号") = dr1("_Identify")

    dr2("订单产品信息_产品名称") = dr1("合同内容_产品订购信息_产品名称")

    dr2("订单产品信息_规格型号") = dr1("合同内容_产品订购信息_产品型号")

    dr2("订单产品信息_单位") = dr1("客户名称")

    dr2("订单产品信息_数量") = dr1("合同内容_价格信息_数量")

    dr2("log_TOSN") = dr1("生产订单下达_生产订单号") & "|" & dr1("_Identify")

    cmd.CommandText = "UPDATE {国内合同表} SET TOSN = 1 where 生产订单下达_生产订单号 ='" & dh & "'"

    cmd.ExecuteNonQuery() 

Next

Else

    e.cancel = True

End If

加了这个and 后 执行出错,不加很正常

    cmd.CommandText = "SELECT * From {国内合同表} Where [生产订单下达_生产订单号] = '" & dh & "' And [TOSN] = Nothing "