[求助]ADO查询后与子窗体数据表绑定的属性是只读,求改编辑属性

菩明本何

我用这段代码把ADO查询后把RS集跟子窗体绑定后能正常显示.如下代码跟图.

代码:  

  Dim tt As Variant '编号
    Dim tj As Variant '条件

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

    tt = Me.KHDM.Value  '取关联字段

    tj = "select * from khdm where khdm='" & tt & "'"
    rs.Open tj, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Set Me.Child1.Form.Recordset = rs
   
    rs.Close
    Set rs = Nothing

图:



在ADO查询跟数据表绑定时,子窗体数据表是只读的.不能修改..我现在需要可以在数据表里修改记录.有什么方法吗?求解!!!

yuanrongfa

楼主在吗？我很喜欢你的界面，可以发给我吗？

还有我想看一下你这个作品的代码是怎么写的，可以发给我吗？

QQ：49360861

菩明本何

难得你看得上眼!呵..这介面很简单.只是改了蓝色背景.再加上一个渐变的小图片.去掉文本框3D效果就成了.没什么技巧...代码还没做完全.过些日子 我会把我做的程序共享出来.!!你多留意就行了.现在只有两个三功能有.其它的还没实现呢!