Нулевой элемент в массиве типа объекта, который не имеет значения

Question

Я устанавливаю элементы массива в Nothing, если те же элементы в другом массиве - Nothing. (по разным причинам я не могу клонировать массив). Оба массива - это тип объекта. Однако, когда элементы в первом массиве Objx (i, j) равны 0, логический оператор оценивает значение Nothing и устанавливает элемент второго массива в Nothing. Почему нулевой элемент в массиве типа объекта, который не имеет значения?

For i = 1 To NumRecords 
    For j = 1 To NumFields 
    If objx(i, j) = Nothing Then x(i, j) = Nothing 
    Next 
Next 

Кроме того, существует необходимость использовать недостающий код данных, чтобы проверить, если элементы массива давал отсутствуют, и, следовательно, должен быть установлен в настоящее время, если отсутствует правда.

Dim MissingDataCode As Object = Nothing 
For i = 1 To NumRecords 
    For j = 1 To NumFields 
     If objx(i, j) Is MissingDataCode Then x(i, j) = Nothing 
     'If objx(i, j) = MissingDataCode Then x(i, j) = Nothing (does not work) 
    Next 
Next 

Теперь, если пользователь должен недостающий код данных, который будет установлен на -9999, и, следовательно, устанавливает:

MissingDataCode = -9999 

будет следующий быть в состоянии поймать значения -9999 и установить второй массив в Nothing?

If objx(i, j) = MissingDataCode Then x(i, j) = Nothing 

или если строка кода будет

If objx(i, j) Is MissingDataCode Then x(i, j) = Nothing 

Answer 1

РЕШЕНИЕ: если переменная типа Object используется, чтобы поймать значения отсутствующего кода данных, а затем два, если заявления должны быть использованы:

Dim MissDataCode As Object = Nothing 

If objx(i, j) = MissDataCode And MissDataCode IsNot Nothing Then x(i, j) = Nothing 
If objx(i, j) Is MissDataCode And MissDataCode Is Nothing Then x(i, j) = Nothing 

Это предотвратит установку нуля в массиве objx (i, j) в ничто. Однако, если MissDataCode = 0, то в любое время objx (i, j) = 0 результат будет оцениваться как отсутствующий и установить второй элемент массива x (i, j) в Nothing.

Вышеуказанные две линии будут работать для любых случаев, например .:

Dim MissDataCode As Object = Nothing 
Dim MissDataCode As Object = -9999 
Dim MissDataCode As Object = "NA" 
Dim MissDataCode As Object = 0 
Dim MissDataCode As Object = "" 

Note, будет иметь место случаи, когда входной ноль означает, что данные отсутствуют.

Answer 2

Не используйте = Nothing для сравнения и используйте вместо этого Is Nothing. Вот несколько примеров:

Dim o As Object 
Console.WriteLine(o = Nothing) ' True 
Console.WriteLine(o Is Nothing) ' True 

o = 0 
Console.WriteLine(o = Nothing) ' True 
Console.WriteLine(o Is Nothing) ' False 

o = "" 
Console.WriteLine(o = Nothing) ' True 
Console.WriteLine(o Is Nothing) ' False 

Редактировать Мой плохо .. Я не заметил вторую часть, которая была добавлена ​​к этому вопросу. Также вы можете найти это интересное What is the difference between And and AndAlso in VB.NET?