今天是个好日子，心情比较沉闷，对自己将来的何去何从又迷茫了。
今天来把上一个月所弄的东西来和大家分享一下。希望大家都来指出不好的地方。
前段时间做了一个读取产品BOM信息的程序。刚开始觉得挺困难，后来慢慢的研究，最终还是解决了。不多说了，看看代码就知道了。写的有点乱（最闹心的地方）
''' <summary>
''' 获取BOM视图
''' </summary>
''' <param name="path1">文件路径</param>
''' <param name="dt"></param>
''' <remarks></remarks>
Public Sub GetBom(ByVal path1 As String, ByVal dt As DataTable)
dt.Columns.Add("母件图号")
dt.Columns.Add("级别")
Dim edmBOMView As IEdmBomView '声明IedmBomView对象，用来获取BOM视图
Dim edmBomManager As IEdmBomMgr '定义IEdmBomMgr对象，用来操作BOM
file8 = vault.GetFileFromPath(path1) '根据文件路径来获取文件
Dim edmBomArray() As EdmBomLayout '定义BOM的样式
edmBomManager = vault.CreateUtility(EdmUtility.EdmUtil_BomMgr) '创建IEdmBomMgr实例
edmBomManager.GetBomLayouts(edmBomArray) '获取BOM的样式
For i As Integer = 0 To UBound(edmBomArray) '根据BOM的样式来获取BOM视图
edmBOMView = file8.GetComputedBOM(edmBomArray(i).mlLayoutID, _
file8.CurrentVersion, "default", -1)
Next
Dim bomRows As Array = Array.CreateInstance(GetType(EdmBomCell), 1) '定义承装BOM行的数组
edmBOMView.GetRows(bomRows) '从视图中获取BOM的所有行
Dim bomClunms As Array = Array.CreateInstance(GetType(EdmBomColumn), 1) '定义承装BOM列的数组
edmBOMView.GetColumns(bomClunms) '获取BOM的所有列
Dim column As EdmBomColumn '定义BOM列类型的变量
For k As Integer = 0 To bomClunms.Length - 1 '循环列数组来获取列名，添加到DataTable中
column = bomClunms.GetValue(k)
dt.Columns.Add(column.mbsCaption, GetType(String))
Next
Dim j As Integer = bomRows.GetLength(bomRows.Rank - 1) '获取BOM行数
Dim cell As IEdmBomCell '定义行变量
Dim hjPath As String
Dim level, fisLevel As Integer
Dim r As Integer = 1
For Each cell In bomRows '循环行，并把行数据添加到DataTable中
Dim dr As DataRow = dt.NewRow()
Dim pa As String = cell.GetPathName()
dt.AcceptChanges()
For j = 0 To bomClunms.Length - 1
Dim column1 As EdmBomColumn = bomClunms.GetValue(j)
Dim b As Integer = cell.GetTreeLevel()
level = cell.GetTreeLevel + 1
Dim value As New Object
hjPath = cell.GetPathName()
Dim poComputedValue As New Object
Dim config As String
cell.GetVar(column1.mlVariableID, column1.meType, value, poComputedValue, config, True)
dr("级别") = b + 1
dr(j + 2) = value.ToString()
Next
dt.Rows.Add(dr)
If dr("是否自制焊件") = "焊件" Then
GetRef(hjPath, level, dr("图号"), dr("零件类型"))
End If
r += 1
Next
AdjustTable(dt) '对DataTable进行处理 填充DataTable中的母件图号列
End Sub
''' <summary>
''' 输出格式
''' </summary>
''' <param name="dt"></param>
''' <remarks></remarks>
Private Sub AdjustTable(ByVal dt As DataTable)
For i As Integer = 0 To dt.Rows.Count - 1
Try
If i = 0 Then
Continue For
End If
If dt.Rows(i)("级别") - dt.Rows(i - 1)("级别") = 0 Then
dt.Rows(i)("母件图号") = dt.Rows(i - 1)("母件图号")
ElseIf dt.Rows(i)("级别") - dt.Rows(i - 1)("级别") > 0 Then
dt.Rows(i)("母件图号") = dt.Rows(i - 1)("图号").ToString
Else
dt.Rows(i)("母件图号") = GetPre(i, dt)
End If
Catch ex As Exception
'MsgBox(ex.Message.ToString)
End Try
Next
End Sub
''' <summary>
''' 调整输出格式
''' </summary>
''' <param name="i"></param>
''' <param name="dt"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function GetPre(ByVal i As Integer, ByVal dt As DataTable) As String
Dim strSre As String = dt(0)("图号").ToString
For j As Integer = i - 1 To 0 Step -1
Try
If dt.Rows(j)("级别") = dt.Rows(i)("级别") Then
strSre = dt.Rows(j)("母件图号").ToString
Exit For
ElseIf dt.Rows(j)("级别") < dt.Rows(i)("级别") Then
strSre = dt.Rows(j)("图号").ToString
Exit For
End If
Catch ex As Exception
'MsgBox(ex.Message.ToString)
End Try
Next
Return strSre
End Function
