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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  实例问题求助？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118678)

--  作者：zch178053198
--  发布时间：2018/5/8 18:27:00
--  实例问题求助？

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

问题一：“进”表

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

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

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

问题三：“销”表

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

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

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

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

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

--  作者：有点甜
--  发布时间：2018/5/8 18:50:00
--

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

--  作者：zch178053198
--  发布时间：2018/5/8 21:59:00
--

J8 对应   呼吸道疾病I型

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

这就是对不上

--  作者：zch178053198
--  发布时间：2018/5/8 22:04:00
--

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

复制到

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

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

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

--  作者：zch178053198
--  发布时间：2018/5/8 22:05:00
--

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

--  作者：zch178053198
--  发布时间：2018/5/8 22:05:00
--

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

--  作者：zch178053198
--  发布时间：2018/5/8 22:07:00
--
问题三正在研究中。

--  作者：zch178053198
--  发布时间：2018/5/8 22:09:00
--

4、看第3点。
那个第三点，
此主题相关图片如下：微信截图_20180508220746.png

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

--  作者：有点蓝
--  发布时间：2018/5/8 22:11:00
--
以下代码，通过通用名取值是有问题的，因为通用名是有重复的。先搞清楚自己的逻辑

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
Next
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)
Next
End If
End If

End Select

--  作者：zch178053198
--  发布时间：2018/5/8 22:15:00
--

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

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

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

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