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的值是新附加上的了!