这样:
Dim i as Integer
Dim intCount As Integer
intCount = DataGrid1.SelBooks.Count - 1
ReDim arrSelBK(intCount)
For i = 0 To intCount
ArrSelBK(i) = DataGrid1.SelBooks(i)
Next i在SelBooks集合中包含了用户所有选择的纪录(用户可以按下CTRL+纪录任意选择)
Dim i as Integer
Dim intCount As Integer
intCount = DataGrid1.SelBooks.Count - 1
ReDim arrSelBK(intCount)
For i = 0 To intCount
ArrSelBK(i) = DataGrid1.SelBooks(i)
Next i在SelBooks集合中包含了用户所有选择的纪录(用户可以按下CTRL+纪录任意选择)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货