Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,069
- Được thích
- 7,992
- Nghề nghiệp
- Làm đủ thứ
Có phải muốn xài loại Object này thì máy tính phải có cài thêm gì nữa hay không?
Sao mình viết code này chạy tốt trên máy tính của mình nhưng gởi file cho người khác thì lại báo lỗi. Các anh chị nào biết vui lòng giải thích giúp.
Sao mình viết code này chạy tốt trên máy tính của mình nhưng gởi file cho người khác thì lại báo lỗi. Các anh chị nào biết vui lòng giải thích giúp.
PHP:
Function QuickSort(Sarr(), ByVal Order As Boolean)
Dim Arr(), i As Long, Temp
With CreateObject("System.Collections.ArrayList")
For i = 1 To UBound(Sarr)
If Sarr(i, 1) <> "" Then .Add Sarr(i, 1)
Next
.Sort
If Order = False Then .Reverse
Temp = .ToArray
End With
ReDim Arr(0 To UBound(Temp), 1 To 1)
For i = 0 To UBound(Temp)
Arr(i, 1) = Temp(i)
Next
QuickSort = Arr
End Function
Lần chỉnh sửa cuối: