End Sub
'显示类型转换函数
Private Function getchangetype(ByVal s As String) As Object
Select Case m_type.ToString
Case "System.Integer"
Console.WriteLine("integer")
Return Convert.ToInt32(s)
Case "System.Boolean"
Console.WriteLine("boolean")
Return Convert.ToBoolean(s)
Case "System.String"
Return s
Case "System.Decimal"
Return Convert.ToDecimal(s)
End Select
End Function
Private Function setsuitablevalue(ByVal s As String) As Obj
| 对此文章发表了评论 |

