主题：实例问题求助？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.zip

 

问题一：“进”表

多数时间输入“商品代码”-后不能正确提取对应正确“品名”。需要试多次才正确。
 
 如： J1  对应   幽门螺旋杆菌检测试剂盒（HP）
        J8  对应   呼吸道疾病I型
        J9  对应   唐氏或AFP/HCG检测试剂盒

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

问题三：“销”表

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

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

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

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

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

  J8  对应   呼吸道疾病I型

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

这就是对不上

 

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

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

 

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

 

问题三正在研究中。

4、看第3点。

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

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

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

 

 

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

 

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

 

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

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

 

 

关于颜色的有点，眉目了。谢谢