确实是只读属性 因为你的列表框哪个Style 以后text属性不能付植

解决方案 »

  1.   

    给你个变通的方法
      我不知道Combo_Dep中的数据是什么
        假设是a,b两列数据
    Private Sub GridList_Click()
        Dim cemp As New ClsEmp
        txtEMP_ID.Text = GridList.TextMatrix(GridList.Row, 1)
        txtemp_NM.Text = GridList.TextMatrix(GridList.Row, 2)
        上面两行没有问题,但到了comboBox中会报“实时错误383,text是只读属性”
        Combo_Dep.additem GridList.TextMatrix(GridList.Row, 3),0
        Combo_Dep.listindex=0
        Combo_Posi.Text = GridList.TextMatrix(GridList.Row, 4)
        Combo_Area.Text = GridList.TextMatrix(GridList.Row, 5)
        
    End Sub