Cần giúp đỡ về Listview (1 người xem)

[cauthungoaihang]

Mình có một userform với code như file đính kèm, nhưng nó cứ báo lỗi "Invalid property value".

Mình thử copy đoạn code trong Napdl_all vô trong phần UserForm_Initialize(), sau đó xoá hàm Napdl_all thì không bị lỗi này, nhưng vậy thì không gọi hàm lại được.

Các bạn giúp mình với nhé, cảm ơn rất nhiều.

 

[ndu96081631]

Mình có một userform với code như file đính kèm, nhưng nó cứ báo lỗi "Invalid property value".

Mình thử copy đoạn code trong Napdl_all vô trong phần UserForm_Initialize(), sau đó xoá hàm Napdl_all thì không bị lỗi này, nhưng vậy thì không gọi hàm lại được.

Các bạn giúp mình với nhé, cảm ơn rất nhiều.

Code sự kiện UserForm_Initialize của bạn:

Private Sub UserForm_Initialize()
  Application.Visible = True
  [COLOR=#ff0000]Me.OptionButton1 = True[/COLOR]
  With ListView1
    .Gridlines = True
    .View = lvwReport
    .FullRowSelect = True
    .HideColumnHeaders = False
    .HideSelection = False
    .HotTracking = True
    .MultiSelect = True
    With .ColumnHeaders
      .Add , , "Code", 90
      .Add , , "Quality", 120
      .Add , , "All warehouses", 80
      .Add , , "MBN", 80
      .Add , , "Pacorini Bonded", 50
      .Add , , "Pacorini Non-bonded", 50
      .Add , , "UCC Bonded", 50
      .Add , , "BMT Factory", 50
    End With
    For j = 3 To 8
      .ColumnHeaders.Item(j).Alignment = lvwColumnRight
    Next
  End With
End Sub

Chỗ màu đỏ đặt ở đầu code là sai. Phải đặt ở cuối code như vầy:

Private Sub UserForm_Initialize()
  Application.Visible = True
  With ListView1
    .Gridlines = True
    .View = lvwReport
    .FullRowSelect = True
    .HideColumnHeaders = False
    .HideSelection = False
    .HotTracking = True
    .MultiSelect = True
    With .ColumnHeaders
      .Add , , "Code", 90
      .Add , , "Quality", 120
      .Add , , "All warehouses", 80
      .Add , , "MBN", 80
      .Add , , "Pacorini Bonded", 50
      .Add , , "Pacorini Non-bonded", 50
      .Add , , "UCC Bonded", 50
      .Add , , "BMT Factory", 50
    End With
    For j = 3 To 8
      .ColumnHeaders.Item(j).Alignment = lvwColumnRight
    Next
  End With
  [COLOR=#ff0000]Me.OptionButton1 = True[/COLOR]
End Sub

 

[cauthungoaihang]

À mình hiểu rồi, lúc đó button đó =True thì gọi napdl_all luôn, mà chưa có Listview để nạp.Thanks anh ndu nhé, giờ em làm tiếp file, có chỗ nào tìm không ra thì lại phiền anh nhé ^_^