字符串数组定义赋值问题

[zhangpazi]

为什么定义时赋值没问题,象这样:Dim strColNms() As String = {"hokenjaidno", "jisseki_year_month", "sejyutudiv", "k_sei_7_kensu", "k_sei_7_sejyutukaisuu", "k_sei_7_seikyuugaku", "k_sei_8_kensu", "k_sei_8_sejyutukaisuu", "k_sei_8_seikyuugaku", "k_sei_s_kensu", "k_sei_s_seikyuugaku", "k_sei_s_itibufutan", "kikanno1", "address1", "teisyutudate"}

而定义后赋值前一个大括号下面就有波浪线,象这样:
Dim strColNms() As String
strColNms = {"hokenjaidno", "jisseki_year_month", "sejyutudiv", "k_sei_7_kensu", "k_sei_7_sejyutukaisuu", "k_sei_7_seikyuugaku", "k_sei_8_kensu", "k_sei_8_sejyutukaisuu", "k_sei_8_seikyuugaku", "k_sei_s_kensu", "k_sei_s_seikyuugaku", "k_sei_s_itibufutan", "kikanno1", "address1", "teisyutudate"}
请高手指点下怎么先定义再赋值才对

[wjq]

前者,这是声明时的语法.不能用于正常的赋值.
声明时这么写,编译器可以推算出你的数组个数,
而赋值时这么写,就可能造成下标越界等问题.

[rangeon]

不懂VB，不过感觉应该这样：strColNms() = {...} 或 strColNms(15) = {...}

[zhangpazi]

因为字符串的个数不定,所以没办法定义定长的字符串,这种情况有解决办法吗?

[yanlongwuhui]

Dim strColNms() As String
ReDim Preserve strColNms(1)
strColNms(0) = "hokenjaidno"
strColNms(1) = "jisseki_year_month"

[wjq]

[Quote=引用 3 楼 zhangpazi 的回复:]
因为字符串的个数不定,所以没办法定义定长的字符串,这种情况有解决办法吗?
[/Quote]
Dim strColNms() As String
strColNms = New String() {"hokenjaidno", "jisseki_year_month", "sejyutudiv", "k_sei_7_kensu", "k_sei_7_sejyutukaisuu", "k_sei_7_seikyuugaku", "k_sei_8_kensu", "k_sei_8_sejyutukaisuu", "k_sei_8_seikyuugaku", "k_sei_s_kensu", "k_sei_s_seikyuugaku", "k_sei_s_itibufutan", "kikanno1", "address1", "teisyutudate"}

[zhangpazi]

非常感谢回答,我试试看

[zhangpazi]

5楼回答的好用