实例问题求助？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

问题一：“进”表

多数时间输入“商品代码”-后不能正确提取对应正确“品名”。需要试多次才正确。

如： J1 对应   幽门螺旋杆菌检测试剂盒（HP）
        J8 对应   呼吸道疾病I型
        J9 对应   唐氏或AFP/HCG检测试剂盒

问题二：“进库存”不能同时和“进”表同步提取数据，包括修改，删除等。

问题三：“销”表

“库存”数量，如何用代码表示：从“进”表中数量减去“销”表中数量

“销”表中的出库数量如何自动，在同表库存状况中“出库”显示。

问题四：剩余库存表如何调取 “进、销”表中对应数据，求代码？

问题五：关于“列”颜色标记，均需把“数量、出库、库存”分别用不同颜色标记出，另帮助文件这篇
怎么都看不懂，包括实例参考。

上述代码搞得头晕，怎么也解决不了，求老师指导，谢谢！

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

J8 对应呼吸道疾病I型

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20180508215824.png

这就是对不上

复制到

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20180508220051.png

执行了一下进库存，就变成了如下。

此主题相关图片如下：微信截图_20180508220236.png

变成两个，而其数据均不全

问题一，未解决，问题二，也未解决。

问题三正在研究中。

4、看第3点。

那个第三点，

此主题相关图片如下：微信截图_20180508220746.png

学习资料里没有标注，第一章，第二章，更不用说第3点。找不到

以下代码，通过通用名取值是有问题的，因为通用名是有重复的。先搞清楚自己的逻辑

Select Case e.DataCol.name

Case "进货单号", "商品代码", "品名","通用名"

Dim nms() As String = {"品名","通用名","分类","规格型号","单价元","产地","注册证号","单位","备注"}

If e.NewValue Is Nothing Then

For Each nm As String In nms

e.DataRow(nm) = Nothing

Else

Dim dr As DataRow

dr = DataTables("商品资料").Find("商品代码 = '" & e.newvalue & "' or 品名 = '" & e.newvalue & "' or 通用名 = '" & e.newvalue & "'")

If dr IsNot Nothing

For Each nm As String In nms

e.DataRow(nm) = dr(nm)

End If

End Select

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

这个我没看懂？？？？？？？有什么作用。

在哪进入，操作？？？？？

上述问题基本都未解决。因为刚学习也是隔三差五有空才学，还对基本的高手术语或简语看不懂。请多多包涵。

主题：实例问题求助？