rs.addnew
rs.fields(0).value="datagrid1.text"
…………
…………
rs.update
或者用adodc绑定也可以,不过你用msflexgrid输入的话效果会更好,可以做下拉框

解决方案 »

  1.   

    不知道你是不是李英华。这个问题我已经解决了。如果你不是,请E-mail跟我联系
    [email protected]
      

  2.   

    建议你用msflexgrid,可以控制的就很多了
      

  3.   

    白牙程序中写到:
    rs.addnew
    rs.fields(0).value="datagrid1.text"
    但这一程序的前提是datagrid1中已经有数据了,而我要说的是指在datagrid中没有数据的前提下,输入记录到datagrid中。然而我发现即使把datagrid1.allowaddnew属性设为true,datagrid也只是只读的,它根本不能接受用户的输入。
       唉!怎办,怎办,各位大哥帮帮忙啊!!
      

  4.   

    msflexgrid吗?我翻翻书看看,谢谢啦
      

  5.   

    用msflexgrid吧,我给你代码,有下拉框,把qq贴出来
      

  6.   

    引用adodb库
    然后添加控件:名字datagrPrivate Sub Form_Load()
    dataGr.AllowAddNew = True
    Dim adore As New ADODB.Recordset
    adore.Fields.Append "mm", adInteger
    adore.Fields.Append "nn", adInteger
    adore.Fields.Append "oo", adInteger
    adore.Open
    Set dataGr.DataSource = adoreadore.AddNew
    End Sub
      

  7.   

    mshflexgrid??VB6.0上有吗?在哪里可以找到呢?"海军上校"能把它的好处说详细点吗?
      

  8.   

    秋雨的代码不行啊,代码调试过了吗,如果没的调试的话请调试的再拿上来!你的程序只是把datagr和recordset连接起来,并用datagr来显示数据。而我的意思是从datagrid输入数据到记录集,再用记录集更新数据库中的表。
      

  9.   

    DataGrid1.AllowUpdate的属性=True后
    RS.AddNew
    ...
    RS.Update 
    才能有用