VPF::Перевод C# to VB.NET - Форум программистов

thomas

Дата 7.7.2007, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Доцент... почти

Профиль
Группа: Завсегдатай
Сообщений: 1385
Регистрация: 3.10.2006
Где: " Сказочное королевство"

Репутация: 6
Всего: 65

Приветствую всех.
Даже немного стыдно спрашивать, но ...
Переписываю вот такую функцию с C#

Код


public String[] GetExcelSheetNames()
            {                
                System.Data.DataTable dt = null;
                try
                {
                    cn.Open();
                    
                    // Get the data table containing the schema
                    dt = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);
     
                    if(dt == null)
                    {
                        return null;
                    }

                    String[] excelSheets = new String[dt.Rows.Count];
                    int i = 0;

                    // Add the sheet name to the string array.
                    foreach(DataRow row in dt.Rows)
                    {
                        string strSheetTableName = row["TABLE_NAME"].ToString();
                        excelSheets[i] = strSheetTableName.Substring(0,strSheetTableName.Length-1); 
                        i++;
                    }
                    
                    
                    return excelSheets;
                }
                catch(Exception ex)
                {
                    throw new Exception(ex.Message) ;
                }
                finally
                {
                    // Clean up.
                    cn.Close();                
                }
            }

на VB.NET

Код


Public Function GetExcelSheetNames() As String()
        Dim dt As DataTable
        dt = Nothing
        Try
            con.Open()
            dt = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
            If dt = Nothing Then 'ЗДЕСЬ РУГАЕТСЯ, не нравиться оператор "=".    Wat is probleem???
                Return Nothing
            End If
            Dim excelSheet() As String
            Dim size As Integer = dt.Rows.Count
            excelSheet = New String(size) {}
            Dim i As Int16 = 0
            For Each row As DataRow In dt.Rows
                Dim strSheetTableName As String = row("TABLE_NAME").ToString()
                excelSheet(i) = strSheetTableName.Substring(0, strSheetTableName.Length - 1)
                i += 1
            Next
            Return excelSheet
        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            con.Close()
        End Try
    End Function

null в C# соответствуюет Nothing в VB.NET

Так почему он не понимает если я спрашиваю про таблицу.

Заранее спасибо.

--------------------

Крепко жму горло, искренне ваш Thomas. (С)vingrad
Некоторые сорта флоры буквально за одно мгновение превращают нас в фауну!
Проблемы негров шерифа не волнуют.

tol05

Дата 7.7.2007, 12:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1632
Регистрация: 21.12.2006
Где: Харьков

Репутация: 63
Всего: 170

А вот так?

Код


If dt Is Nothing Then...

--------------------

На хорошей работе и сны хорошие снятся.

-ser-

Дата 7.7.2007, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 344
Регистрация: 1.2.2005

Репутация: 5
Всего: 13

= сравнивает числовые значения. попробуй Is/IsNot.
посмотри Comparison Operators in Visual Basic.
у тебя компилятор пытается присвоить null таблице и не понимает причем тогда тут if.

--------------------

"Тонкая, однако, работа."

thomas

Дата 7.7.2007, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Доцент... почти

tol05,
-ser-,

Спасибо за отклики!

Да-с, ступил. Ведь подумал же про Is.
Вот что значит, полгода не писать вообще и в VB в частности.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Общие вопросы по .NET и C# \| Следующая тема »