BOM表查询VB实现方法.docVIP

用VB代码实现方法 引用：无，部件：无 设计：在Form1中右下角加入一个CommandButton，名称默认为Command1，窗体的AutoRedraw属性设为True 窗体文件一：Form1 Option Explicit Private mBom As Collection 这是入口的集合Private mBomReturn As Collection 这是出口的集合，未经处理Private mBomReturnLast As Collection 这是出口的集合，经过处理 Private Sub AddBomRecord()在这里往mBom加入数据库里面的原内容，为求简便，我不想连接数据库直接往里面写入记录了，如果需要，你就直接连接数据库，分析一下里面的代码，然后再往mBom里面写入记录FG SA1 2.0000FG SA2 3.0000SA1 PT1 4.0000SA1 PT2 5.0000SA2 PT1 6.0000SA2 PT3 7.0000 Dim mBomValue As cBomValue Set mBomValue = New cBomValue mBomValue.AssBom = FGmBomValue.BomPoint = SA1mBomValue.Quantity = 2 mBom.Add mBomValue Set mBomValue = New cBomValue mBomValue.AssBom = FGmBomValue.BomPoint = SA2mBomValue.Quantity = 3 mBom.Add mBomValue Set mBomValue = New cBomValue mBomValue.AssBom = SA1mBomValue.BomPoint = PT1mBomValue.Quantity = 4 mBom.Add mBomValue Set mBomValue = New cBomValue mBomValue.AssBom = SA1mBomValue.BomPoint = PT2mBomValue.Quantity = 5 mBom.Add mBomValue Set mBomValue = New cBomValue mBomValue.AssBom = SA2mBomValue.BomPoint = PT1mBomValue.Quantity = 6 mBom.Add mBomValue Set mBomValue = New cBomValue mBomValue.AssBom = SA2mBomValue.BomPoint = PT3mBomValue.Quantity = 7 mBom.Add mBomValue End Sub Private Sub Command1_Click() Dim i As IntegerDim m As cBomValue 进行计算 注意以下两个新建实例，必须放置于GetBomList前，该操作也有清空现有数据的作用，否则会造成错误即第一次运行后保存了数据于该两个变量中，并未清除相关记录，而下一次运行则在现有的基础上再进行加操作，因此数据错误了。 Set mBomReturn = New CollectionSet mBomReturnLast = New Collection Call GetBomList 计算后，mBomReturnLast返回的就是最终结果If mBomReturnLast.Count 0 ThenMsgBox 没有记录！, vbInformation + vbOKOnly, BOM表计算Exit SubElse 在窗体中打印出列表的内容Me.ClsPrint Assbom vbTab Point vbTab QuantityFor i = 1 To mBomReturnLast.CountSet m = mBomReturnLast.Item(i)Print m.AssBom vbTab m.BomPoint vbTab m.QuantityNext iEnd If End Sub Private Sub Form_Load() 窗体调用处新建实例，然后再装入数据 Set mBom = New Collection AddBomRecord End Sub ***************************************************************** 以下为进行计算部分的代码，注意Collection里面的处理****************