朱 覲(pk)襯 谿城..
pk
覦 朱覯
' Microsoft SQL Server Integration Services user script component
' This is your new script component in Microsoft Visual Basic .NET
' ScriptMain is the entrypoint class for script components
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper
Public Class ScriptMain
Inherits UserComponent
Dim seq As Integer
Dim AccumQty As Integer
Public Sub New()
seq = 0
AccumQty = 0
End Sub
Public Overrides Sub 0_ProcessInputRow(ByVal Row As Buffer)
'
' Add your code here
'
'朱覯
seq += 1
Row.Seq = seq
'
AccumQty = AccumQty + Row.Quantity
Row.AccumQuantity = AccumQty
End Sub
End Class
http://www.sqlleader.com/mboard.asp?exec=view&strBoardID=SS2005SSIS&intSeq=444