.Net类在运行时声明

Question

我有以下课程

CRS是代表通用成本回收系统的父类。它包含属性和可覆盖的函数

然后是从CRS继承的serval类。这些类具有重写功能，这些功能专门处理特定CRS系统的数据。

Crash log for reference:
Thread 0 Crashed:: Dispatch queue: com.apple.main-thread
0   com.test.app    0x0000000109c2374b closure #1 in closure #1 in ListViewController.freeupUnUsedListItems() (in App) (<compiler-generated>:0)
1   com.test.app    0x0000000109c34dbc partial apply for closure #1 in closure #1 in ListViewController.freeupUnUsedListItems() (in App) (<compiler-generated>:0)
2   com.test.app    0x0000000109c01090 thunk for @escaping @callee_guaranteed () -> () (in App) (<compiler-generated>:0)
3   libdispatch.dylib               0x00007fff85332700 _dispatch_call_block_and_release + 12
4   libdispatch.dylib               0x00007fff8532ee73 _dispatch_client_callout + 8
5   libdispatch.dylib               0x00007fff8533f767 _dispatch_main_queue_callback_4CF + 861
6   com.apple.CoreFoundation        0x00007fff85a51319 __CFRUNLOOP_IS_SERVICING_THE_MAIN_DISPATCH_QUEUE__ + 9
7   com.apple.CoreFoundation        0x00007fff85a0c4af __CFRunLoopRun + 2159
8   com.apple.CoreFoundation        0x00007fff85a0b9f8 CFRunLoopRunSpecific + 296
9   com.apple.HIToolbox             0x00007fff8d78f56f RunCurrentEventLoopInMode + 235
10  com.apple.HIToolbox             0x00007fff8d78f2ea ReceiveNextEventCommon + 431
11  com.apple.HIToolbox             0x00007fff8d78f12b _BlockUntilNextEventMatchingListInModeWithFilter + 71
12  com.apple.AppKit                0x00007fff8ee258ab _DPSNextEvent + 978
13  com.apple.AppKit                0x00007fff8ee24e58 -[NSApplication nextEventMatchingMask:untilDate:inMode:dequeue:] + 346
14  com.apple.AppKit                0x00007fff8ee1aaf3 -[NSApplication run] + 594
15  com.apple.AppKit                0x00007fff8ed97244 NSApplicationMain + 1832
16  com.prosoftnet.remotepcSuite    0x0000000109afd3d9 main (in App) (AppDelegate.swift:12)
17  libdyld.dylib                   0x00007fff893845c9 start + 1

我希望能够以通用方式设置oCRM =继承类。基于客户端使用的系统名称。

例如：

Public Class RDELib


Private mCRS As CRS

Public Sub New()

    VerifyServer()

    mCRS = New DriveRevenue

End Sub