7,763
社区成员
发帖
与我相关
我的任务
分享谁可以把这条语句简捷些 利用循环或数组！
i88 = ListView1.ListItems(i) & "|" & ListView1.ListItems(i).SubItems(1) & "|" & ListView1.ListItems(i).SubItems(2) & "|" & ListView1.ListItems(i).SubItems(3) & "|" & ListView1.ListItems(i).SubItems(4) & "|" & ListView1.ListItems(i).SubItems(5) & "|" & ListView1.ListItems(i).SubItems(6) & "|" & ListView1.ListItems(i).SubItems(7) & "|" & ListView1.ListItems(i).SubItems(8)
谁可以把上面的语句简捷些 利用循环或数组！
谁可以把上面的语句简捷些 利用循环或数组！
...全文
请发表友善的回复…
发表回复
boydgmx 2005-12-23
- 打赏
- 举报
i88 = ListView1.ListItems(i)
for j=1 to 8
i88 = i88 & "|" ListView1.ListItems(i).SubItems(j)
next j
for j=1 to 8
i88 = i88 & "|" ListView1.ListItems(i).SubItems(j)
next j
tyusoft 2005-12-23
- 打赏
- 举报
ding
faysky2 2005-12-23
- 打赏
- 举报
Dim j%
For j = 1 To 8
i88 =i88 & "|" & ListView1.ListItems(i).SubItems(j)
Next
i88 = ListView1.ListItems(i) & i88
For j = 1 To 8
i88 =i88 & "|" & ListView1.ListItems(i).SubItems(j)
Next
i88 = ListView1.ListItems(i) & i88
dynie 2005-12-23
- 打赏
- 举报
是的，就是这样.
northwolves 2005-12-23
- 打赏
- 举报
Private Sub Command1_Click()
Dim x(8) As String, j As Integer
x(0) = ListView1.ListItems(i)
For j = 1 To 8
x(i) = ListView1.ListItems(i).SubItems(j)
Next
i88 = Join(x, "|")
End Sub
Dim x(8) As String, j As Integer
x(0) = ListView1.ListItems(i)
For j = 1 To 8
x(i) = ListView1.ListItems(i).SubItems(j)
Next
i88 = Join(x, "|")
End Sub
weiweiplay 2005-12-23
- 打赏
- 举报
For i = 1 To ListView1.ListItems.Count
i88 = vbNullString
i88 = i88 & ListView1.ListItems(i)
For j = 1 To ListView1.ColumnHeaders.Count - 1
i88 = i88 & "|" & ListView1.ListItems(i).SubItems(j)
Next j
Next i
i88 = vbNullString
i88 = i88 & ListView1.ListItems(i)
For j = 1 To ListView1.ColumnHeaders.Count - 1
i88 = i88 & "|" & ListView1.ListItems(i).SubItems(j)
Next j
Next i
zou19820704 2005-12-23
- 打赏
- 举报
i88 = ListView1.ListItems(i)
for j=1 to 8
i88 = i88 & "|" & ListView1.ListItems(i).SubItems(j)
next
for j=1 to 8
i88 = i88 & "|" & ListView1.ListItems(i).SubItems(j)
next
boydgmx 2005-12-23
- 打赏
- 举报
丢了一个 &
正确如下：
i88 = ListView1.ListItems(i)
for j=1 to 8
i88 = i88 & "|" & ListView1.ListItems(i).SubItems(j)
next j
正确如下：
i88 = ListView1.ListItems(i)
for j=1 to 8
i88 = i88 & "|" & ListView1.ListItems(i).SubItems(j)
next j
