
Consulta sobreTreeView
Publicado por L.Barzi (133 intervenciones) el 20/12/2006 18:09:36
Hola a todos amigos PB's tengo un TV que cargo por un DataStore este es mi codigo:
//Variable Instancia de la Ventana
DataStore ids_data
//Evento Close de la Ventana
DESTROY ids_data
//Evento Constructor del TV
treeviewitem tvi1
long ll_Item, ll_lev2, ll_rowcount, ll_row
//Creando DataStore
ids_data = CREATE DataStore
ids_data.DataObject = "d_sis_listado_empresas"
ids_data.SetTransObject(SQLCA)
ll_rowcount = ids_data.Retrieve()
//Poblando el TV con los datos del DataStore
tvi1.PictureIndex = 1
ll_Item = tv_1.InsertItemLast(0, "Listado de Empresas", 1)
FOR ll_row = 1 to ll_rowcount
tvi1.Label = ids_data.GetItemString(ll_row, 'razon_social')
ll_lev2 = InsertItemLast(ll_Item, tvi1)
NEXT
Mi pregunta es la sgte por q cuando selecciono un dato se pierde la imagen y cuando selecciono otro vuleve la imagen y se pierde en este ultimo dato seleccionado..
Quisiera saber tambien, como puedo cambiar de icono a los subitem ya que tengo el mismo icono del padre..
Gracias
Saludos
Lima - Perú
//Variable Instancia de la Ventana
DataStore ids_data
//Evento Close de la Ventana
DESTROY ids_data
//Evento Constructor del TV
treeviewitem tvi1
long ll_Item, ll_lev2, ll_rowcount, ll_row
//Creando DataStore
ids_data = CREATE DataStore
ids_data.DataObject = "d_sis_listado_empresas"
ids_data.SetTransObject(SQLCA)
ll_rowcount = ids_data.Retrieve()
//Poblando el TV con los datos del DataStore
tvi1.PictureIndex = 1
ll_Item = tv_1.InsertItemLast(0, "Listado de Empresas", 1)
FOR ll_row = 1 to ll_rowcount
tvi1.Label = ids_data.GetItemString(ll_row, 'razon_social')
ll_lev2 = InsertItemLast(ll_Item, tvi1)
NEXT
Mi pregunta es la sgte por q cuando selecciono un dato se pierde la imagen y cuando selecciono otro vuleve la imagen y se pierde en este ultimo dato seleccionado..
Quisiera saber tambien, como puedo cambiar de icono a los subitem ya que tengo el mismo icono del padre..
Gracias
Saludos
Lima - Perú
Valora esta pregunta


0