mọi người xem giúp e cái listview trong dự án này với (1 người xem)

[anh1988]

mình có file addin này do mình code mà ko hiểu sao ở máy của mình thì chạy ok
nhưng mang sang máy ng khác thì form FTkiemlocks khong thể liên kết với dữ liệu dbf để lấy dữ liệu hiển thị trên listview.Mong các cao thủ xem giúp và cho e biết để addin chạy ok trên máy khác e cần copy các component nào(e chưa hiểu rõ phần này)

e bị lỗi ở code này: can not find project nad library

Private Sub Workbook_Open()

Dim myAddIn
  For Each myAddIn In Application.AddIns
    If UCase(myAddIn.Name) = "TVEXCEL01.XLA" Then
      If myAddIn.Path = ThisWorkbook.Path And myAddIn.Installed = True Then
               Exit For
      End If
    End If
    Next

và ở code form này nữa

Dim MyArray(8200, 2)Dim mindext As Long
Dim textdongia As String
Dim texttimma As String
Private Sub ListView1_DblClick()
mindext = ListView1.SelectedItem.Index
Call Tramadongia
Unload Me
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
mindext = ListView1.SelectedItem.Index
textdongia = Trim(redongiaLocks(mindext).madongia) & " : " & Trim(redongiaLocks(mindext).tencongviec) & " : DVT [" & Trim(redongiaLocks(mindext).donvitinh) & "] : GVL [" & Format(redongiaLocks(mindext).giavatlieu, "#00") & "] : GNC [" & Format(redongiaLocks(mindext).gianhancong, "#00") & "] : MTC [" & Format(redongiaLocks(mindext).giamaythicong, "#00") & "]"
Textdienta.text = textdongia
End Sub
Private Sub medit_Click()
MsgBox "PhÇn nµy ch­a cËp nhËt", vbOKOnly, "Th«ng B¸o"
End Sub
Private Sub mOK_Click()
Call Tramadongia
Unload Me
End Sub
Private Sub mthoat_Click()
Unload Me
End Sub
Private Sub Textdienta_Change()
End Sub
Private Sub TTimma_Change()
Dim demkytu As Integer
demkytu = Len(TTimma.text)
For I = 1 To countdgloc 'tkiem.ListBox1.ListCount - 1
If UCase(Left(redongiaLocks(I).madongia, demkytu)) = UCase(TTimma.text) Then
Ftkiemlocks.ListView1.ListItems(I).Selected = True
Ftkiemlocks.ListView1.SelectedItem.EnsureVisible
mindext = ListView1.SelectedItem.Index
textdongia = Trim(redongiaLocks(mindext).madongia) & " : " & Trim(redongiaLocks(mindext).tencongviec) & " : DVT [" & Trim(redongiaLocks(mindext).donvitinh) & "] : GVL [" & Format(redongiaLocks(mindext).giavatlieu, "#00") & "] : GNC [" & Format(redongiaLocks(mindext).gianhancong, "#00") & "] : MTC [" & Format(redongiaLocks(mindext).giamaythicong, "#00") & "]"
Textdienta.text = textdongia
Exit For
End If
Next I
End Sub
Private Sub UserForm_Activate()


End Sub
Private Sub UserForm_Initialize()
For I = 1 To countdgloc
ListView1.ListItems.Add(I) = Trim(redongiaLocks(I).madongia)


ListView1.ListItems(I).ListSubItems.Add(1) = Trim(redongiaLocks(I).tencongviec)
ListView1.ListItems(I).ListSubItems.Add(2) = Trim(redongiaLocks(I).donvitinh)
Next
TTimma.SetFocus
  
End Sub
Sub Tramadongia()
Dim Hang, Cot As Long
mindext = ListView1.SelectedItem.Index
Hang = GHang


Range("Y" & Hang) = 1
Application.Cells(Hang, 3) = Trim(redongiaLocks(mindext).madinhmuc)
Application.Cells(Hang, 4) = Trim(redongiaLocks(mindext).madongia)
Application.Cells(Hang, 5) = Trim(redongiaLocks(mindext).tencongviec)
Application.Cells(Hang, 6) = Trim(redongiaLocks(mindext).donvitinh)
Application.Cells(Hang, 8) = redongiaLocks(mindext).giavatlieu
Application.Cells(Hang, 9) = redongiaLocks(mindext).gianhancong
Application.Cells(Hang, 10) = redongiaLocks(mindext).giamaythicong
Application.Cells(Hang, 14).Formula = "=((H" & Hang & "*K" & Hang & "*Config!$C$5+I" & Hang & "*L" & Hang & "*Config!$D$13*Config!$C$6*Config!$D$10+J" & Hang & "*M" & Hang & "*Config!$C$7))*(" & "Config!$D$11)"
Application.Cells(Hang, 15).Formula = "=G" & Hang & "*N" & Hang


Range("Y" & Hang) = ""


End Sub

hình của cái form đó
https://www.dropbox.com/s/9m4yxt3d9imj57b/Untitled.png


file addin
https://www.dropbox.com/s/cgyju8h64j4u266/test.rar
mọingười thông cảm không upload dc lên diễn đàn nên up lên dropbox

 

[siwtom]

mình có file addin này do mình code mà ko hiểu sao ở máy của mình thì chạy ok
nhưng mang sang máy ng khác thì form FTkiemlocks khong thể liên kết với dữ liệu dbf để lấy dữ liệu hiển thị trên listview.Mong các cao thủ xem giúp và cho e biết để addin chạy ok trên máy khác e cần copy các component nào(e chưa hiểu rõ phần này)

e bị lỗi ở code này: can not find project nad library

Mới "chào buổi sáng" tôi đã thấy là bạn tham chiếu tới XPStyle.ocx ở trong thư mục C:\Windows\System32.
Trên máy khác thì "người ta" không có cái OCX kia nên "can't find project or library"
Tóm lại tham chiếu là missing. Bạn chọn Tools --> References thì sẽ thấy.
Tôi không xem tiếp