2011-10-24 130 views
1

我有兩個類xCustomerxProductKISS:字符串名稱來

Case Tables.xCustomer 
    Dim Count As Integer = (From t In New XPQuery(Of xCustomer)(DefaultSession) Select t.CustomerID).Count 
    Return Count + 1 
    Case Tables.xProduct 
    Dim Count As Integer = (From t In New XPQuery(Of xProduct)(DefaultSession) Select t.ProductID).Count 
    Return Count + 1 

我如何可以簡化上述聲明,讓使用字符串類的轉換說?

例如,我想使用類似

昏暗測試作爲對象

測試= ReturnClassOfString( 「xCustomer」)

回答