| 发表于:2008-01-14 17:27:036楼 得分:0 |
把 adodc 控件的 cursortype 属性都设置为 adopendynamic。 ________________________________________________________ private sub command1_click() adodc1.recordset.addnew adodc1.recordset.fields(1) = trim(text1.text) end sub private sub command2_click() adodc2.recordsource = "select * from 表1 where xz='" & trim(text1.text) & "'" set datagrid2.datasource = adodc2 adodc2.refresh end sub 新增加的数据立即查还是查不到啊,必须关掉这个界面再开才可以查到最后一个数据。 help | | |
|