学生得几个常见bugMSHFlexGrid控件自动调整列宽

Private Sub Form_Load()

   Dim txtSQL As String

   Dim MsgText As String

   txtSQL = "select * from student_Info "

   Set mrc = ExecuteSQL(txtSQL, MsgText)               '得到student表，并显示出来

   'select得到的临时表，游标指向尾记录，在Access中指向第一条

      If mrc.RecordCount = 0 Then

       MsgBox "没有记录，请关闭修改窗口！", vbOKOnly + vbExclamation, "警告"

        firstCommand.Enabled = False

        previousCommand.Enabled = False

        nextCommand.Enabled = False

        lastCommand.Enabled = False

        editCommand.Enabled = False

        updateCommand.Enabled = False

        cancelCommand.Enabled = False

        deleteCommand.Enabled = False ，可以不用这么麻烦，直接讲外面的框，禁用

   Else

   mrc.MoveFirst

   Call viewData

   mcbookmark = mrc.Bookmark '做标记

   mcclean = True

   End If

End Sub

这个错误的原因是，我们想要修改数据库内学籍的信息，但是里面是空的，什么都没有，解决的方法是，放一个IF语句判读，如果没有记录就弹窗显示警告，并且将其他的按钮禁用。

简单来说就是水缸太小了，无法装下所有的数据，解决方法如

MSHFlexGrid控件自动调整列宽