您好！
    感谢您对我公司图书的支持！
    1。对于《范例宝典》实例 98中没有保存按钮的问题。该实例中确实没有保存按钮的单击事件，这是因为该实例的目的是想向读者介绍如何使用MSHFlexGrid控件辅助数据录入，重点不在保存按钮上，因此对该部分的代码省略。
     2。《案例精选》中的菜单不符。当您单击“市场管理”/“市场走势”菜单项，会弹出“产品信息”窗体，在该窗体中选择您要分析的产品，然后单击“确定”按钮，将出现该产品的市场走势窗体。
     3。对于输入月份显示天数的函数，我暂时没有发现，不过我可以给您写一个自定义函数，以方便您的使用。
     4。SQL 2000动态交叉表中的问题。是可以多用几个分组字段的。在该实例中定义了一个存储过程，通过修改该存储过程中的参数，就可以使用其他分组，也可以对其他数据表进行分析。

Function DaysInAMonth(MyMonth As Integer, MyYear As Integer) As Integer
Dim days As Integer
Select Case MyMonth
  Case 1, 3, 5, 7, 8, 10, 12
     DaysInAMonth = 31
  Case 4, 6, 9, 11
     DaysInAMonth = 30
  Case 2
     If (MyYear Mod 4 = 0 And MyYear Mod 100 <> 0) Or MyYear Mod 400 = 0 Then
        DaysInAMonth = 29
     Else
        DaysInAMonth = 28
     End If
End Select
End Function

Private Sub Command1_Click()
a = DaysInAMonth(10, 2006)
MsgBox a
End Sub