你取值给酒店名称?还是想要同时让DataGrid显示?
试一下这个方法:
Private Sub DataList1_Click()
酒店名称=DataList1.text
End Sub
2014-02-16 18:10
2014-02-18 09:23
2014-02-18 10:50
2014-02-18 17:48
2014-02-18 17:49