当图表数据为空时弹出提示，如何实现？

xinle

窗体中的图表数据源是动态更新的，
就是说根据不同的查询结果来更新数据源。
比如：
查询：
strSql = "SELECT (Format([BMSJ],'yy_m')) AS 月份, Count(tblStudent.BH) AS 计数BH FROM tblStudent where [BMKC]=" & Me.cboKC & ""
更改数据源：
Me.DataChart.RowSource = strSql

但有时查询结果为空，而图表就会显示为空白一片，
不知道有没有什么方法来检测图表数据，如果为空时弹出提示！

谢谢！！！

andymark

TRY:

Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim StrSql As String
Set Conn = CurrentProject.Connection

StrSql = "SELECT (Format([BMSJ],'yy_m')) AS 月份, Count(tblStudent.BH) AS 计数BH FROM tblStudent where [BMKC]=" & Me.cboKC & ""

Rs.Open StrSql, Conn, adOpenDynamic, adLockOptimistic

If Rs.EOF Then
   MsgBox "没有相关数据"
   Exit Sub
End If
Me.DataChart.RowSource = StrSql
Set Rs = Nothing
Set Conn = Nothing

xinle

我也用这种方法的，但老是提示查询语句出错！
我再试试！

谢谢！

[此贴子已经被作者于2007-2-22 20:48:41编辑过]