Private Sub cmdMonth_Click()
'显示当月销售情况
Dim sum As Single
Sql = "select * from 销售查询表 where left(销售日期,7)='" & Left(Me.DTPicker1.Value, 7) & "'"
writeMS Sql, Me.MSFlexGrid1
For i = 1 To Me.MSFlexGrid1.Rows - 2
    sum = sum + Me.MSFlexGrid1.TextMatrix(i, Me.MSFlexGrid1.Cols - 1)
Next i
Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, Me.MSFlexGrid1.Cols - 1) = sum
End Sub
我看到别人写的一个系统中.数据库中就没有"销售查询表"   ....只有销售表呢,但是却能读到数据呢.不知道是什么问题????