MSFlexGrid控件中数据删除问题

各位大侠：  
  我在将MSFlexGrid控件中数据删除时，遇到如下问题，请各位高手指教！  
        MSFlexGrid控件的属性：MSFlexGrid1.Rows   =   10  
                                                    MSFlexGrid1.Cols   =   6  
                                                    MSFlexGrid1.FixedCols   =   0  
                                                    MSFlexGrid1.FixedRows   =   1  
                                                    其它属性为默认值  
        使用MSFlexGrid1.RemoveItem   (1)对表格数据进行删除时，不能删除最后的非固定的一行数据，即删除最后Row=1   行数据时，系统会提示：实时错误：‘30015’  
                                                                                                        不能删除上一个非-固定行  
   
   
  我的程序为：  
  Private   Sub   Form_Load()  
  MSFlexGrid1.Rows   =   10  
  MSFlexGrid1.Cols   =   6  
  For   i   =   0   To   5  
  MSFlexGrid1.Row   =   0  
  MSFlexGrid1.Col   =   i  
  MSFlexGrid1.Text   =   i  
  Next   i  
  For   j   =   0   To   9  
  MSFlexGrid1.Col   =   0  
  MSFlexGrid1.Row   =   j  
  MSFlexGrid1.Text   =   j  
  Next   j  
  For   j   =   1   To   9  
  For   i   =   1   To   5  
  MSFlexGrid1.Col   =   i  
  MSFlexGrid1.Row   =   j  
  MSFlexGrid1.Text   =   i   *   j  
  Next   i  
  Next   j  
  End   Sub  
   
  Private   Sub   Command1_Click()  
  MSFlexGrid1.RemoveItem   (1)  
  End   Sub  
  问题点数：50、回复次数：3Top

1 楼qzgrmc（）回复于 2002-08-02 16:03:24 得分 50

由于MSFLEXGRID   是不给删除最后一个非固定行，所以，你只能是最后将固定行设为0，然后删除倒数第二行，最后将剩下的一行用颜色和gridline的属性来模拟出固定行的效果。   试一试！  
   
  Private   Sub   Command1_Click()  
  If   MSFlexGrid1.Rows   >   1   Then  
          If   MSFlexGrid1.Rows   =   2   Then  
                  MSFlexGrid1.FixedCols   =   0  
                  MSFlexGrid1.FixedRows   =   0  
                  MSFlexGrid1.RemoveItem   (1)  
                  MSFlexGrid1.BackColor   =   &H8000000F  
                  MSFlexGrid1.BorderStyle   =   flexBorderSingle  
                  MSFlexGrid1.GridLines   =   flexGridInset  
          Exit   Sub  
          End   If  
          MSFlexGrid1.RemoveItem   (1)  
  End   If  
  end   subTop

2 楼okx（）回复于 2002-08-03 09:33:10 得分 0

qzgrmc:  
      谢谢！您给于我的帮助，已解决问题。  
  Top

3 楼okx（）回复于 2002-08-03 10:25:53 得分 0

我给了50分怎么没显示！Top

相关问题

• 控件
• 数据
• 属性
• msflexgrid
• 删除
• removeitem
• rows
• col
• 问题
• sub

• 帖主：okx
• qzgrmc

• Visual Basic类图书
• Visual Basic类源码下载