vb cmbobox.text只读属性

解决这个问题，可以先看到Style (2--dropdown list)

也就是说，给改控件赋值时候是这样赋的:

    cSql = "SELECT cType_Name FROM tbl_Abs_Net WHERE cType = 'UNDER'  and iCount=1 "

    Set cRec = gData.OpenResultset(cSql, rdOpenKeyset)

    Do While cRec.EOF = False

       cmbUnder.AddItem Trim(cRec(0))

       cRec.MoveNext

    Loop

    cRec.Close

    cmbUnder.Text = cmbUnder.List(0) 

 

如果再后面的某处，写了cmbUnder.text=comething(任何值) 

都会报错: cmbobox.text只读属性

如果要指定cmbobox.text的新值

可以这样写:

 

     cmbUnder.AddItem Trim(!cUnder)

      cmbUnder.Text = cmbUnder.List(cmbUnder.ListCount - 1) 

 

 

 

这样text的值是新附加上的了!