动态改变控件的数据源，如何实现？

Question

我想在使用datagrid的时候动态的改变数据源，请问如何实现？

Answer 1

On Error GoTo errorhandlerIf cmdok.ToolTipText = "已 审 核" Then
If rst.State Then rst.Close
sql = "select * from 表1 where 字段='值'"
rst.Open sql, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rst
ElseIf cmdok.ToolTipText = "未 审 核" Then
If rst.State Then rst.Close
sql = "select * from 表2 where 字段='值'"
rst.Open sql, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rst
End IfExit Sub
errorhandler:
'错误处理
End Sub

Answer 2

超OUTLOOK软件(正式版SmartMail1.0免费提供源码(最新版))
运行演示图:http://bbs.2ccc.com/uploads/huangtao/运行效果图.jpg
下载地址:http://bbs.2ccc.com/uploads/huangtao/smartmail1.0.rar
源码 放送