listview

Question

scmd = "select * from TableBook where MenuID in (select ManualKey from TableBookTrans) and  tablename='" & Mid(optThumb(Index).Tag, 2) & "' and bookdate >='" & Format(Now, "yyyy-mm-dd") & "'"
            EF.Open scmd, DCN, adOpenStatic, adLockReadOnly, adCmdText
            If EF.RecordCount <> 0 Then
                Text2.Text = Trim(Mid(optThumb(Index).Tag, 2))
                For i = 1 To EF.RecordCount
                    InsertToBook ListView1, EF.Fields("menuID"), EF.Fields("tel"), EF.Fields("cname"), Format(EF.Fields("bookdate"), "YYYY-MM-DD") & " " & Format(EF.Fields("fromtime"), "hh:mm:ss") & "-" & Format(EF.Fields("totime"), "hh:mm:ss")
                    EF.MoveNext
                Next i
             双击Listview1中一条数据取得menuID的值传给text1
             sRetVal = "0" & Text1.Text
            Else
                sRetVal = ""
            End If
            EF.close
            Set EF = Nothing

Answer 1

Private Sub ListView1_DblClick()
    
    Text1 = ListView1.ListItems(ListView1.SelectedItem).ListSubItems(1)
End Sub

Answer 2

Private Sub Listview1_DblClick()
    text1.text = Trim(Listview1.SelectedItem.ListSubItems.Item(1).Text)
End Sub

Answer 3

路过,不知道是什么问题~
去看看listview的属性和方法吧.

Answer 4

来晚了
text1.text = Listview1.SelectedItem.ListSubItems.Item(1).Text[Quote=引用 6 楼 

Answer 5

text1.text =ListView1.SelectedItem.Text  就可以了