非常感谢甜版，太开心了
Public Class myDatatables
Public Sub new
End Sub
Public dname As String = ""
Default Public readonly Property Item(tname As String) As myDatatables
Get
dname = tname
Return mytables
End Get
End Property
Public Function xFind(Filter As String,Optional Sort As String ="" ) As DataRow
Dim sname As String=DataTables(dname).ConnectionName
Dim cmd As new SQLCommand
Dim dt As DataTable
cmd.ConnectionName = sname
If sort > "" Then
cmd.CommandText ="se lect * from " + dname +" where " + Filter + " order by " + sort
Else
cmd.CommandText = "se lect * from " + dname +" where " + Filter
End If
dt = cmd.ExecuteReader(True)
If dt.DataRows.count>0 Then
Return dt.DataRows(0)
End If
Return Nothing
End Function
End Class
Public mytables = new myDatatables
readonly Property xDataTables As myDatatables
Get
Return mytables
End Get
End Property
加好友 
发短信
Post By：2018/12/27 16:30:00 [只看该作者]
