文本框与listview 同步 然后
Private Sub ListView1_DblClick()
If ListView1.ListItems.Count = 0 Then Exit Sub
bx = ListView1.SelectedItem.Text
xm = ListView1.SelectedItem.SubItems(1)
dh = ListView1.SelectedItem.SubItems(2)
zz = ListView1.SelectedItem.SubItems(3)
zhuji = ListView1.SelectedItem.SubItems(4)
sn = ListView1.SelectedItem.SubItems(5)
DT1.Value = ListView1.SelectedItem.SubItems(6)
DT2.Value = ListView1.SelectedItem.SubItems(7)
ListView1.Refresh