如何处理组合的文本属性？ [英] How to deal with text property of combo?

问题描述

 私有  Sub  ListView1_Click（）
 如果 ListView1.ListItems.Count>  0  然后 
 Text1.Text = ListView1.ListItems（ListView1.SelectedItem.Index）.Text 
 Text2.Text = ListView1.ListItems（ListView1.SelectedItem.Index）.ListSubItems（ 1 ）。文本
 
 Sql = < span class =code-string>  SELECT A.AID，A.UNIT，B.LOC_NAME，C.SNAME FROM ASSET A，LOCATION B，SUPPLIER C WHERE  
 Sql = Sql +   A.LOC_ID = B.LOC_ID AND A.SUP_ID = C.SUP_ID和AID =& Text1.Text 
 RS.Open Sql，CON， 1 ， 2  
 Combo2 .Text = RS！UNIT 
 COM1 
 Combo1.Text = RS！LOC_NAME // combo  样式 -   2  
 COM5 
 Combo5.Text = RS！SNAME // combo  样式 -   2  
 结束 如果 
 结束  Sub  
 私有  Sub  COM5（）
 如果 Combo5.ListIndex = -1 那么 
 对于 I =  0  至 Combo5.ListCount  -   1  
 Combo5.ListIndex = I 
 下一步 
 结束 如果 
 结束  Sub  
 
 私人  Sub  COM1（）
 如果 Combo1.ListIndex = -1 < span class =code-keyword>然后 
 对于 I =  0  至 Combo1.ListCount  -   1  
 Combo1.ListIndex = I 
 下一步 
 结束 如果 
 结束  Sub  

当我点击ListView1时发生错误：

''text''属性是只读.....



plz帮帮我

解方案

当 ComboBox.Style 等于 2 - DropDownList ，文本属性是只读的。如果要更改ComboBox的值，则需要将 ItemIndex 属性设置为列表元素之一 ItemData（index）

Private Sub ListView1_Click()
If ListView1.ListItems.Count > 0 Then
Text1.Text = ListView1.ListItems(ListView1.SelectedItem.Index).Text
Text2.Text = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text

Sql = "SELECT A.AID,A.UNIT,B.LOC_NAME,C.SNAME FROM ASSET A,LOCATION B,SUPPLIER C WHERE "
Sql = Sql + "A.LOC_ID=B.LOC_ID AND A.SUP_ID=C.SUP_ID AND AID=" & Text1.Text
RS.Open Sql, CON, 1, 2
Combo2.Text = RS!UNIT
COM1
    Combo1.Text = RS!LOC_NAME                //combo with style - 2
COM5
    Combo5.Text = RS!SNAME                  //combo with style - 2
End If
End Sub
Private Sub COM5()
    If Combo5.ListIndex = -1 Then
    For I = 0 To Combo5.ListCount - 1
    Combo5.ListIndex = I
    Next
    End If
End Sub

Private Sub COM1()
    If Combo1.ListIndex = -1 Then
    For I = 0 To Combo1.ListCount - 1
    Combo1.ListIndex = I
    Next
    End If
End Sub

When I click on ListView1 error occurs:
''text'' property is read only.....

plz help me

解决方案

While ComboBox.Style is equal 2 - DropDownList, Text property is read only. If you want to change value of ComboBox, you need to set ItemIndex property to one of list element ItemData(index).

这篇关于如何处理组合的文本属性？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！