我在一个窗体上用adodc绑定了几个文本控件,还有一个MSHFlexGrid来实时显示数据,可是每次我addnew或修改后MSHFlexGrid上面的数据还是老样子,一定要下一个记录再增加后才会显示上一条记录。MSHFlexGrid是用ado对象来显示的。具体代码如下:
这是ADO控件的连结代码,ConnectionStr是连结字符串.
With Adodc1
.ConnectionString = ConnectionStr
.RecordSource = "select * from saleproduct order by ID"
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Refresh
End With显示是用这样的:
MyOpenrst rst, "select * from saleproduct"
Set MSHFlexGrid1.DataSource = rstPublic Sub MyOpenrst(rs As ADODB.Recordset, sql As String)
With rs
If .State = 1 Then .Close
.CursorLocation = adUseClient
.Open sql, Conn, adOpenKeyset, adLockOptimistic
End With
End Sub每次update后用
MyOpenrst rst, "select * from saleproduct"
Set MSHFlexGrid1.DataSource = rst
来显示,却还是老样子,请问各位有什么办法吗,我不想ADODC与MSHFlexGrid直接绑定
这是ADO控件的连结代码,ConnectionStr是连结字符串.
With Adodc1
.ConnectionString = ConnectionStr
.RecordSource = "select * from saleproduct order by ID"
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Refresh
End With显示是用这样的:
MyOpenrst rst, "select * from saleproduct"
Set MSHFlexGrid1.DataSource = rstPublic Sub MyOpenrst(rs As ADODB.Recordset, sql As String)
With rs
If .State = 1 Then .Close
.CursorLocation = adUseClient
.Open sql, Conn, adOpenKeyset, adLockOptimistic
End With
End Sub每次update后用
MyOpenrst rst, "select * from saleproduct"
Set MSHFlexGrid1.DataSource = rst
来显示,却还是老样子,请问各位有什么办法吗,我不想ADODC与MSHFlexGrid直接绑定
解决方案 »
- 明天就要回家过年了,祝大家春节愉快!!!散分~~~~~~~~~
- 关于第三方控件注册的问题,50分跪求高手指导,不够+++++分
- 大伙帮我看看这段程序,谢谢!
- 怎样在VB里调用Microsoft Outlook 在 输入地址,标题,内容,然后点击发送邮件
- 报表的小问题 很着急!
- 怎样制作VB安装程序:在安装程序执行前运行另一个ID核对程序,符合要求后才能安装?
- 急!!!(在线等)
- 如果是变量传过来的话 这个代码为什么不能执行呢 正确如何写 谢谢!!!
- ado 与msflexgrid问题.
- VB新手上http://www.experts-exchange.com的感受
- ActiveX component can't create object
- 怎样在DataReport的页脚(PageFooter)上显示统计数据,急在线等!
Set MSHFlexGrid1.DataSource = rst
MyOpenrst rst, "select * from saleproduct"
Set MSHFlexGrid1.DataSource = rst
MSHFlexGrid1.Refresh