主题：[求助]一个字符串包含问题

设计了一个窗口，按钮的代码为：

dim s1 as string

dim brand() as string

brand(0)="a"

brand(1)-"b"

For Each dr As DataRow In DataTables("字符转换").Datarows
      s1=dr("转换字符")
      s1=s1.ToLower()
   For Index As Integer = 0 To brand.Length - 1
      If s1.Contains(brand(Index)) Then  

      dr("brand")=brand(index)
      End If
   Next
Next

 

    运行时出现错误：

 

 

    这里面有一句If s1.Contains(brand(Index)) Then ，我想问一下，这样写对不对？

此主题相关图片如下：未命名.jpg

s1=dr("转换字符") 
s1=s1.ToLower()

 

改一下：

 

if dr.Isnull("转换字符") Then

   continue for

end if

s1=dr("转换字符") 
s1=s1.ToLower()

 

改了，问题一样出现。

别改那个，改这个:

dim brand() as string

改为

dim brand(1) as string

 

解决了。谢谢！ 

dim brand(2) as string

 

或者缩为一行：

 

Dim brand() as string = {"a", "b"}