class.format

客户关系管理系统ASP.NET+VB.NET编程完整程序！

Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Collections
Imports OrmLib

Namespace {0}
    Public Class Lookups

        Public Sub New(ByVal dsn As String)
            data = New DataManager(dsn)
			RefreshLookups()
        End Sub

        Private data As DataManager
{1}
        Public Function RefreshLookups() As DataSet
            Dim sql As New String("")
            Dim t As DataTable
            Dim r As DataRow

            data.QueryCriteria.Clear()
{2}
            data.OrderedTables.Clear()
{3}
            Dim ds As DataSet = OrmDataSet.NewDataSet()
            data.FillDataSet(sql, ds, True)
{4}
            If sql.Length > 0 And ( not t is nothing)  Then Return ds

            Return nothing
        End Function

    End Class
End Namespace