590
社区成员
发帖
与我相关
我的任务
分享
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
Public Overrides Sub 输入_ProcessInputRow(ByVal Row As 输入Buffer)
Dim result As Double
If Double.TryParse(Row.col, result) Then
Row.DirectRowTo输出()
Else
Row.DirectRowTo输出()
End If
End Sub
End Class