Private Sub cmdAdd_Click()
        Drug_Store.rsSysUsers.AddNew         '添加新纪录
        cmbStatus.ListIndex = 1            '设置默认权限      -------这里出错  运行时提示无效属性值!
        txtNews = "记录:" & Drug_Store.rsSysUsers.AbsolutePosition _
                 & "/" & Drug_Store.rsSysUsers.RecordCount
        isAdding = True
        cmdAdd.Enabled = False             '在保存新纪录之前禁用控件
        cmdDelete.Enabled = False: picNavigation.Enabled = False
End Sub各位大侠帮帮忙!

解决方案 »

  1.   

    这么一写,神也不知道。Drug_Store.rsSysUsers.AddNew
    .Update呢?cmbStatus 里面有什么?
      

  2.   

    .Update该怎么添加?cmbStatus是一个comboBox控件!里面没有什么东西?期待你的回答!谢谢
      

  3.   

    就因为combox里面没有东西才会出错,你试试看往里面加两个item以后就不会错了别的就要看你自己需要了
      

  4.   

    cmbStatus.ListIndex = 1            '设置默认权限没有东西在里面,你设置啥权限?
    如果里面有东西,列表中的第一项是 ListIndex = 0,否则为缺省值-1
      

  5.   

    谢谢各位的指教!原来是combox属性中的List需要设置!!