Code báo màu đỏ khi thêm " then" (1 người xem)

[quynhtlbp]

Các bạn cho mình hỏi đoạn mã sau sai chỗ nào mà báo hiệu màu đỏ khi gõ " then" enter
xuống hàng

Private Sub TimKiem()
Dim Getrows()
Dim strType As String
Dim n As Long, r As Long
  strType = "*" & UCase(TexBox1) & "*"
  For r = 1 To Pri_Ubd
[COLOR=#ff0000]  IfUCase(ArrDATA(r,2))Like strType Then[/COLOR]
    n = n + 1
  ReDim Preserve Getrows(1 To n)
  Getrows(n) = r
 End If
 Next
 If n Then
 Dim ArrFilter()
 ReDim ArrFilter(1 To n, 1 To 5)
  
   For r = 1 To n
   ArrFilter(r, 1) = ArrDATA(Getrows(r), 1)
   ArrFilter(r, 2) = ArrDATA(Getrows(r), 2)
   ArrFilter(r, 3) = ArrDATA(Getrows(r), 3)
   ArrFilter(r, 4) = ArrDATA(Getrows(r), 4)
   ArrFilter(r, 5) = ArrDATA(Getrows(r), 5)
Next


 ListBox1.List = ArrFilter
Else
ListBox1.List = Array()
End If


End Sub

Mình xin cảm ơn.

 

[sealand]

Bạn để ý 1 chút là thâý liền, bạn tách rời 2 chữ sau:

IfUCase -----> If UCase



Mặt khác, khi khai báo biến bạn nên tránh tên biến là các từ khoá của VB. Biến Getrows cũng bị trùng với lệnh Getrows của ADO và DAO

 

[leonguyenz]

Các bạn cho mình hỏi đoạn mã sau sai chỗ nào mà báo hiệu màu đỏ khi gõ " then" enter
xuống hàng
---
Mình xin cảm ơn.

Bạn chưa khai báo biến đầy đủ: ArrDATA và viết IFUcase liền nhau.

 

[quynhtlbp]

Bạn để ý 1 chút là thâý liền, bạn tách rời 2 chữ sau:

IfUCase -----> If UCase



Mặt khác, khi khai báo biến bạn nên tránh tên biến là các từ khoá của VB. Biến Getrows cũng bị trùng với lệnh Getrows của ADO và DAO

Em mới tập tành viết mấy đoạn code đơn giản thôi thì được chứ phước tạp hơn em chưa viết được, vậy nhân tiện nhờ Sealand xem giúp em "chương trình thu phí " em làm mấy cái Form và code đơn gian còn phước tạp và nâng cao thì em chưa làm được " vì là tân binh mà anh" vì hôm trước em có gửi lên Diễn đàn bạn phucbugi có viết cho em mấy đoạn code đó, em tải về máy mở chương trình lên không gọi được Form. Đợi lâu em hơi sốt ruột đành mạo muội nhờ anh ( nếu phạm quy anh cùng ban quản trị thông cảm bỏ qua cho) Em xin cảm ơn.

lịnk file:http://www.giaiphapexcel.com/forum/...í-Dịch-Vụ-Chuyển-Tiền-(-Phiếu-Thu-Phí)