主题：[求助]datatable相关方法的异步改造【已解决】

可以，参考

https://www.w3cschool.cn/vb_net/vb_net_classes_objects.html

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109912&skin=0

代码是调整替换tables的方法，这样处理以后，调用tables("xxx")就可以跳转到你自己的代码那里控制了。

1、同样的，你也可以改成datatable。请先看懂代码。

2、如果觉得替换成datatable有可能影响本来的datatable的功能，你也可以改成xdatatable。请先看懂代码。

3、关键看懂下面的用法

readonly Property Tables As myTableCollection
Get
Return mytables
End Get
End Property

在你的 xdDataTables 类里面，定义函数即可。也就是拷贝代码进去。

要增加什么属性、方法，都在class里面定义即可。

Default Public readonly Property Item(tname As String) As DataTable

改成

Default Public readonly Property Item(tname As String) As xdDataTables

参考

Public Class myDatatables

Public Sub new
End Sub
Public name As String = ""

Default Public readonly Property Item(tname As String) As myDatatables
Get
    name = tname
    Return mytables
End Get
End Property

Public Function xFind(flt As String) As DataRow
    msgbox(name & " " & flt)
    Return Nothing
End Function

End Class

Public mytables = new myDatatables

readonly Property xDataTables As myDatatables
Get
Return mytables
End Get
End Property

调用

Dim dr = xDataTables("产品").xFind("产品编号 = '03'") '找出编号为03的产品