- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]一个字符串包含问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8404)
-- 发布时间：2010/10/19 14:33:00
-- [求助]一个字符串包含问题
设计了一个窗口，按钮的代码为：
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
[此贴子已经被作者于2010-10-19 14:40:31编辑过]
-- 发布时间：2010/10/19 14:37:00
--
s1=dr("转换字符")
s1=s1.ToLower()
改一下：
if dr.Isnull("转换字符") Then
continue for
end if
s1=dr("转换字符")
s1=s1.ToLower()
-- 发布时间：2010/10/19 14:40:00
--
改了，问题一样出现。
-- 发布时间：2010/10/19 14:51:00
--
别改那个，改这个:
dim brand() as string
改为
dim brand(1) as string
-- 发布时间：2010/10/19 15:01:00
--
解决了。谢谢！
[此贴子已经被作者于2010-10-19 15:01:48编辑过]
-- 发布时间：2010/10/19 15:03:00
--
dim brand(2) as string
或者缩为一行：
Dim brand() as string = {"a", "b"}