Nhờ mọi người giúp xử lý code sự kiện listview_MouseUp sau khi tìm kiếm ra dữ liệu

[binhlama00]

Mình có file quản lý hồ sơ . Sau khi thực hiện chức năng tìm kiếm theo mã hồ sơ xong thì dữ liệu load vào listview . Vậy làm sao khi kích vào dòng nào thì nó sẽ tìm tới đúng vị trí dữ liệu của sheet để cập nhật lại dữ liệu.

 

[bebo021999]

Cuối cái sub này gọi cái sub "chon:"
Call chon(txtMaHoso.Text)

Private Sub lstKTTXDonVi_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If lstKTTXDonVi.ListCount <= 0 Then Exit Sub
  Call cmdKTTXXoaTrang_Click
   
   vt = lstKTTXDonVi.ListIndex
   
   txtMaHoso.Text = lstKTTXDonVi.List(vt)
   txtKTTXDonvi.Text = lstKTTXDonVi.List(vt, 1)
   txtKTTXDanhhieu.Text = lstKTTXDonVi.List(vt, 2)
   txtKTTXHinhThucKhen.Text = lstKTTXDonVi.List(vt, 3)
    'Kiem tra du lieu ngay truyen thong, dung dinh dang khong
   If lstKTTXDonVi.List(vt, 4) <> "" Then txtKTTXNgaytruyenthong.Text = Format(lstKTTXDonVi.List(vt, 4), "dd/MM/yyyy")
   Call chon(txtMaHoso.Text)
End Sub

và thêm cái sub "chon" này, lấy tham số txtMaHoso.Text

Sub chon(maHoso As String)
Sheets("DON VI KTTX").Activate
Columns(1).Find(maHoso).Select
End Sub

 

[binhlama00]

Cuối cái sub này gọi cái sub "chon:"
Call chon(txtMaHoso.Text)

Private Sub lstKTTXDonVi_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If lstKTTXDonVi.ListCount <= 0 Then Exit Sub
  Call cmdKTTXXoaTrang_Click
  
   vt = lstKTTXDonVi.ListIndex
  
   txtMaHoso.Text = lstKTTXDonVi.List(vt)
   txtKTTXDonvi.Text = lstKTTXDonVi.List(vt, 1)
   txtKTTXDanhhieu.Text = lstKTTXDonVi.List(vt, 2)
   txtKTTXHinhThucKhen.Text = lstKTTXDonVi.List(vt, 3)
    'Kiem tra du lieu ngay truyen thong, dung dinh dang khong
   If lstKTTXDonVi.List(vt, 4) <> "" Then txtKTTXNgaytruyenthong.Text = Format(lstKTTXDonVi.List(vt, 4), "dd/MM/yyyy")
   Call chon(txtMaHoso.Text)
End Sub

và thêm cái sub "chon" này, lấy tham số txtMaHoso.Text

Sub chon(maHoso As String)
Sheets("DON VI KTTX").Activate
Columns(1).Find(maHoso).Select
End Sub

Dạ, bác ơi. Ý tưởng của em là tìm kiếm theo mã hồ sơ. Ví dụ bấm 2022 thì nó ra list những hồ sơ năm 2022. sau đó mình chọn 1 mã thì nó load dữ liệu lên các textbox , xong thì mình cập nhật thì nó cập nhật đúng mã hồ sơ đó ạ. Như bác em bấm cập nhật nó lại sai vị trí mất ạ.

 

[Maika8008]

Dạ, bác ơi. Ý tưởng của em là tìm kiếm theo mã hồ sơ. Ví dụ bấm 2022 thì nó ra list những hồ sơ năm 2022. sau đó mình chọn 1 mã thì nó load dữ liệu lên các textbox , xong thì mình cập nhật thì nó cập nhật đúng mã hồ sơ đó ạ. Như bác em bấm cập nhật nó lại sai vị trí mất ạ.

Sai vị trí là thế nào được nhỉ. Thông thường là code phải dựa vào mã để tìm lại trong dữ liệu. Chỉ khi đúng dòng có cái mã đó thì mới cập nhật chứ.