以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请前辈设计一个库存表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63136)
--  作者：rs033
--  发布时间：2015/1/14 16:08:00
--  [求助]请前辈设计一个库存表
现有一个入库表、一个出库表、一个库存表，想设计一个库存查询窗口，窗口使用库存表。
实现：1.以入库表中药品名称、批号、单价三者相同为条件把药品目录复制到库存表中；
2.在库存表中统计查询时间段内 入库数量、金额；出库数量、金额；库存数量、金额。
3.实现查询时间段入、出、库存，不能只查询到当前入、出、库存。
如何设计，求代码，谢谢各位老师。
--  作者：有点甜
--  发布时间：2015/1/14 16:16:00
--  

1、

 

http://www.foxtable.com/help/topics/2292.htm

 

http://www.foxtable.com/help/topics/2490.htm

 

2、3 看 开发指南->统计与查询
--  作者：Bin
--  发布时间：2015/1/14 16:17:00
--  
直接用SQL查询表实现. 具体请上例子.
--  作者：rs033
--  发布时间：2015/1/14 16:38:00
--  

相同的药品会有不同的批号或单价，但帮助中的例子，只能以药品名称为条件列出不同的药品名称，问题是药品名称相同但批号或单价不同也要列出如何实现呢？

帮助中的：

非关联表之间的数据同步

假定有一个产品表和一个库存表，两个表都有产品编号、产品名称、产品规格三列，但是没有建立关联，我们希望：

1、在产品表增加一个产品，库存表对应也增加此产品。
2、在产品表删除一个产品，库存表对应也删除此产品。
3、在产品表更改某产品的产品编号、产品名称或产品规格后，库存表也能同步修改。

设计步骤

1、将产品表的DataColChanged事件代码设置为：

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("产品规格")
        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
--  作者：有点甜
--  发布时间：2015/1/14 17:04:00
--  

 动态合成表达式

 

http://www.foxtable.com/help/topics/1284.htm

 

http://www.foxtable.com/help/topics/2919.htm

 
--  作者：jm20116
--  发布时间：2017/1/5 22:02:00
--  
我也好想需要这个功能，不知道你做好了没，能否分享一下给我