Function GetDataTableByFormat(ByVal vRecordNumber As Integer, ByVal ItemSQL As String, ByVal TableName As String, ByVal ParaSQL As String) As System.Data.DataTable

        Dim RecordNumber As String

        If vRecordNumber = 0 Then

            RecordNumber = ""

        Else

            RecordNumber = "TOP " & vRecordNumber

        End If

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

        Dim queryString As String = "SELECT " & RecordNumber & " " & ItemSQL & " FROM " & TableName & " where " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

        Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCommand)

        Dim dataSet As System.Data.DataSet = New System.Data.DataSet

        Try

 << 上一页  [21] [22] [23] [24] [25] [26] [27] [28] [29]  下一页