主题：实例问题求助？

1、我测试没问题；请具体说明怎么输入无法提取值；

 

2、

 

Select Case e.DataCol.name
    Case "进货单号"
        Dim dr As DataRow = DataTables("进库存").Find("进货单号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("进库存").AddNew()
            dr("日期") = e.DataRow("日期")
            dr("供应商名称") = e.DataRow("供应商名称")
            dr("商品代码") = e.DataRow("商品代码")
            dr("通用名") = e.DataRow("通用名")
            dr("品名") = e.DataRow("品名")
            dr("规格型号") = e.DataRow("规格型号")
            dr("分类") = e.DataRow("分类")
            dr("产地") = e.DataRow("产地")
            dr("注册证号") = e.DataRow("注册证号")
            dr("单位") = e.DataRow("单位")
            dr("数量") = e.DataRow("数量")
            dr("单价元") = e.DataRow("单价元")
            dr("金额") = e.DataRow("金额")
            dr("批号") = e.DataRow("批号")
            dr("有效期") = e.DataRow("有效期")
            dr("备注") = e.DataRow("备注")
            dr("库存状态") = e.DataRow("库存状态")
            dr("出库") = e.DataRow("出库")
            dr("库存") = e.DataRow("库存")

            dr("进货单号") = e.DataRow("进货单号")
        Else
            dr("进货单号") = e.DataRow("进货单号")
        End If
    Case "品名","规格型号"
        Dim dr As DataRow = DataTables("进库存").Find("进货单号= '" & e.DataRow("进货单号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

 

3、根据商品代码，compute统计进的数量，然后减去compute统计出的数量，即可。

 

4、看第3点。

 

5、Tables("进").grid.cols("商品代码").style.backcolor = Color.red