看这段程序 Public Class SqlProcedure 'Field Private GetConn As Config Private MyConn As SqlConnection Private _ProcedureName As String Private MyComm As SqlCommand Private MyDataSet As DataSet Private MyDataAdapter As SqlDataAdapter Private MyParameter As SqlParameter 'Property Public Property ProcedureName() As String Get Return Me._ProcedureName End Get Set(ByVal Value As String) Me._ProcedureName = Value End Set End Property 'Methord Public Sub New(ByVal ProcedureName As String) Me._ProcedureName = ProcedureName End Sub end class 谁能解释一下程序怎么运行的? ???
你设置的属性的时候就SET
Public Class SqlProcedure
'Field
Private GetConn As Config
Private MyConn As SqlConnection
Private _ProcedureName As String
Private MyComm As SqlCommand
Private MyDataSet As DataSet
Private MyDataAdapter As SqlDataAdapter
Private MyParameter As SqlParameter
'Property
Public Property ProcedureName() As String
Get
Return Me._ProcedureName
End Get
Set(ByVal Value As String)
Me._ProcedureName = Value
End Set
End Property 'Methord Public Sub New(ByVal ProcedureName As String)
Me._ProcedureName = ProcedureName
End Sub
end class
谁能解释一下程序怎么运行的?
???