7,788
社区成员
发帖
与我相关
我的任务
分享怎么解决？
Dim a(5) As String
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 4
aa.Col = 0
aa.Row = i
aa.Text = a(i) 'aa是个MSFlexGrid
Next
End Sub
Private Sub Form_Load()
a(0) = "a"
a(1) = "b"
a(3) = "d"
a(4) = "e"
End Sub
点击command 得出结果是 “a”，“b”，“”，“d”，“e”
我想得到连续的“a”，“b”，“d”，“e”
怎么办？
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 4
aa.Col = 0
aa.Row = i
aa.Text = a(i) 'aa是个MSFlexGrid
Next
End Sub
Private Sub Form_Load()
a(0) = "a"
a(1) = "b"
a(3) = "d"
a(4) = "e"
End Sub
点击command 得出结果是 “a”，“b”，“”，“d”，“e”
我想得到连续的“a”，“b”，“d”，“e”
怎么办？
...全文
请发表友善的回复…
发表回复
AresChen 2004-01-06
- 打赏
- 举报
简单判断一下空不就完了?这样改
Private Sub Command1_Click()
Dim i As Integer
dim j as integer
For i = 0 To 4
if trim(a(i))<>"" then
j=j+1
aa.Col = 0
aa.Row = j
aa.Text = a(j) 'aa是个MSFlexGrid
end if
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer
dim j as integer
For i = 0 To 4
if trim(a(i))<>"" then
j=j+1
aa.Col = 0
aa.Row = j
aa.Text = a(j) 'aa是个MSFlexGrid
end if
Next
End Sub
paoluo 2004-01-06
- 打赏
- 举报
a(0) = "a"
a(1) = "b"
a(3) = "d"
a(4) = "e"
a(2)没有赋值，就自动给空值了。
改成如下：
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 3
aa.Col = 0
aa.Row = i
aa.Text = a(i) 'aa是个MSFlexGrid
Next
End Sub
Private Sub Form_Load()
a(0) = "a"
a(1) = "b"
a(2) = "d"
a(3) = "e"
End Sub
不知道是不是你所说的意思？试试。
我也是菜鸟。有错误的话，多多包涵。
a(1) = "b"
a(3) = "d"
a(4) = "e"
a(2)没有赋值，就自动给空值了。
改成如下：
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 3
aa.Col = 0
aa.Row = i
aa.Text = a(i) 'aa是个MSFlexGrid
Next
End Sub
Private Sub Form_Load()
a(0) = "a"
a(1) = "b"
a(2) = "d"
a(3) = "e"
End Sub
不知道是不是你所说的意思？试试。
我也是菜鸟。有错误的话，多多包涵。
aalei 2004-01-06
- 打赏
- 举报
啊。没有人说~~~还是没有人会？？？
55
55
aalei 2004-01-06
- 打赏
- 举报
可能昨天猪肉吃多了，脑袋都糊涂了！！
