1 Dim dt As DataTable = New DataTable()
2 dt.Columns.Add("DtCostProductRuleGUID", GetType(Guid))
3 dt.Columns.Add("RecollectGUID", GetType(Guid))
4 dt.Columns.Add("ProjCode", GetType(String))
5 dt.Columns.Add("ProductGUID", GetType(Guid))
6 dt.Columns.Add("CostCode", GetType(String))
7 dt.Columns.Add("CostShortName", GetType(String))
8 dt.Columns.Add("ParentCode", GetType(String))
9 dt.Columns.Add("CostLevel", GetType(Integer))
10 dt.Columns.Add("IfEndCost", GetType(Integer))
11 dt.Columns.Add("DtCost", GetType(Decimal))
12 dt.Columns.Add("IsAttend", GetType(Integer))
13 Dim row As DataRow
14 Using scope As ConnectionScope = New ConnectionScope
15 For Each xmlNode In xmlNodeList
16 strCostCode = xmlNode.Attributes("CostCode").Value
17 strCostShortName = xmlNode.Attributes("CostShortName").Value
18 strParetnCode = xmlNode.Attributes("ParentCode").Value
19 iCostLevel = CInt(xmlNode.Attributes("CostLevel").Value)
20 iIfEndCost = CInt(xmlNode.Attributes("IfEndCost").Value)
21 decDtCost = CDec(xmlNode.Attributes("DtCost").Value)
22 For i = 0 To iProductCount - 1
23 row = dt.NewRow()
24 row("DtCostProductRuleGUID") = Guid.NewGuid()
25 row("CostCode") = strCostCode
26 row("CostLevel") = iCostLevel
27 row("CostShortName") = strCostShortName
28 row("DtCost") = decDtCost
29 row("IfEndCost") = iIfEndCost
30 row("IsAttend") = xmlNode.Attributes(dtProduct.Rows(i).Item("Product")).Value.ToString()
31 row("ParentCode") = strParetnCode
32 row("ProductGUID") = dtProduct.Rows(i).Item("ProductGUID").ToString()
33 row("ProjCode") = sProjCode
34 row("RecollectGUID") = sRecollectGUID
35 dt.Rows.Add(row)
36 Next
37 Next
38 '保存金蝶业态
39 xmlNode = xmlDOM.SelectSingleNode("/data/jdRow")
40 For i = 0 To iProductCount - 1
41 strSQL = "update cb_JdProductRule set JdProductName='" & xmlNode.Attributes(dtProduct.Rows(i).Item("Product")).Value.ToString() & _
42 "' where RecollectGUID=@RecollectGUID and ProductGUID='" & dtProduct.Rows(i).Item("ProductGUID").ToString() & "';"
43
44
45
46
47
48
49
50
51 sbStr.Append(strSQL)
52 Next
53 CPQuery.From(sbStr.ToString(), param).ExecuteNonQuery()
54
55 Dim bulkCopy As SqlBulkCopy = scope.CreateSqlBulkCopy(SqlBulkCopyOptions.FireTriggers)
56 bulkCopy.DestinationTableName = "cb_DtCostProductRule"
57 bulkCopy.WriteToServer(dt)
58 End Using
