Dim dt As DataTable = New DataTable()

             dt.Columns.Add("DtCostProductRuleGUID", GetType(Guid))

             dt.Columns.Add("RecollectGUID", GetType(Guid))

             dt.Columns.Add("ProjCode", GetType(String))

             dt.Columns.Add("ProductGUID", GetType(Guid))

             dt.Columns.Add("CostCode", GetType(String))

             dt.Columns.Add("CostShortName", GetType(String))

             dt.Columns.Add("ParentCode", GetType(String))

             dt.Columns.Add("CostLevel", GetType(Integer))

             dt.Columns.Add("IfEndCost", GetType(Integer))

             dt.Columns.Add("DtCost", GetType(Decimal))

             dt.Columns.Add("IsAttend", GetType(Integer))

             Dim row As DataRow

             Using scope As ConnectionScope = New ConnectionScope

                 For Each xmlNode In xmlNodeList

                     strCostCode = xmlNode.Attributes("CostCode").Value

                     strCostShortName = xmlNode.Attributes("CostShortName").Value

                     strParetnCode = xmlNode.Attributes("ParentCode").Value

                     iCostLevel = CInt(xmlNode.Attributes("CostLevel").Value)

                     iIfEndCost = CInt(xmlNode.Attributes("IfEndCost").Value)

                     decDtCost = CDec(xmlNode.Attributes("DtCost").Value)

                     For i =  To iProductCount -

                         row = dt.NewRow()

                         row("DtCostProductRuleGUID") = Guid.NewGuid()

                         row("CostCode") = strCostCode

                         row("CostLevel") = iCostLevel

                         row("CostShortName") = strCostShortName

                         row("DtCost") = decDtCost

                         row("IfEndCost") = iIfEndCost

                         row("IsAttend") = xmlNode.Attributes(dtProduct.Rows(i).Item("Product")).Value.ToString()

                         row("ParentCode") = strParetnCode

                         row("ProductGUID") = dtProduct.Rows(i).Item("ProductGUID").ToString()

                         row("ProjCode") = sProjCode

                         row("RecollectGUID") = sRecollectGUID

                         dt.Rows.Add(row)

                     Next

                 Next

                 '保存金蝶业态

                 xmlNode = xmlDOM.SelectSingleNode("/data/jdRow")

                 For i =  To iProductCount -

                     strSQL = "update cb_JdProductRule set  JdProductName='" & xmlNode.Attributes(dtProduct.Rows(i).Item("Product")).Value.ToString() & _

                             "' where RecollectGUID=@RecollectGUID and ProductGUID='" & dtProduct.Rows(i).Item("ProductGUID").ToString() & "';"

                     sbStr.Append(strSQL)

                 Next

                 CPQuery.From(sbStr.ToString(), param).ExecuteNonQuery()

                 Dim bulkCopy As SqlBulkCopy = scope.CreateSqlBulkCopy(SqlBulkCopyOptions.FireTriggers)

                 bulkCopy.DestinationTableName = "cb_DtCostProductRule"

                 bulkCopy.WriteToServer(dt)

             End Using