我原来不是用SQL是用Table的，没有问题，现在我改成SQL后，发现不能提取_Identify 的值，请各位老师帮忙一下。代码如下：

  For Each d As Row In Tables("订单主表.订单明细表").Rows
        If d.DataRow.RowState = 4 Then
            If d("订单类型")="A" Then
                If (d("仓库名称")="恒滔仓库" Or d("所属部门") = "树脂部") Then
                    Dim cmd As New SQLCommand
                    Dim kcb As DataTable
                    cmd.C
                    cmd.CommandText = "SELECT * From {库存明细表1}"
                    kcb = cmd.ExecuteReader(True)
                    Dim ar As DataRow = kcb.AddNew
                    ar("入库时间") = d("订单日期")
                    ar("产品名称") = d("产品名称")
                    ar("产品批号") = d("产品批号")
                    ar("产品数量") = d("产品数量")
                    ar("票面价") = d("产品票面价")
                    ar("成本价") = d("产品成本价")
                    If ar("成本价") > 0 Then
                        ar("库存金额") = Round2(ar("成本价")*ar("产品数量"),2)
                    Else
                        ar("库存金额") = Round2(ar("票面价")*ar("产品数量"),2)
                    End If
                    ar("仓库名称") = d("仓库名称")
                    ar("产品分类") = d("产品分类")
                    ar("产品所属部门") = d("所属部门")
                    ar("订单编号") = d("订单编号")
                    ar("收货时间") = d("订单日期")
                    ar("实收数量") = d("产品数量")
                    ar("所属公司") = Vars("gs")
                    ar("外币") = d("外币")
                    ar("状态") = "已入库"
                    ar.save
MessageBox.show(ar("_Identify"))
                    d("仓标")=ar("_Identify")

end if

end if

ar("_Identify") 的值怎么是0.如何才能取得这个值呢？

我的代码里不是保存了吗？我是保存了以后才提取的。

ar.save 以后我才提取的啊

save之后，要重新获取这一列才能得到对应值。不建议用 ExecuteReader(True) 这种方式，你这段代码，和直接把表加载出来，速度是一样的。