datagrid垂直滚动条与添加记录问题

Private   Sub   Combo1_LostFocus()  
  Set   DataGrid1.DataSource   =   Nothing  
  If   Connres.State   <>   adStateClosed   Then  
  Connres.Close  
  DataGrid1.ScrollBars   =   dbgBoth  
  Connres.Open   "select   name,航线,周收入,周收益,日期,港口,编号   from   zsy   where   日期   between   getdate()-5   and   getdate()   and   name='"   &   yh   &   "'"   &   "   and   港口='"   &   Combo1.Text   &   "'"  
  DataGrid1.Columns(0).DataField   =   "航线"  
  DataGrid1.Columns(1).DataField   =   "周收入"  
  DataGrid1.Columns(2).DataField   =   "周收益"  
  DataGrid1.Top   =   Me.ScaleTop   +   1000  
  DataGrid1.Height   =   Me.ScaleHeight  
  DataGrid1.Left   =   Me.ScaleLeft  
  DataGrid1.Width   =   Me.ScaleWidth  
  Set   DataGrid1.DataSource   =   Connres  
  DataGrid1.ScrollBars   =   dbgBoth  
  DataGrid1.Refresh  
  End   If  
  End   Sub  
  当记录数多到垂直滚动条要出现时后，我直接tab键移到下面一个空行时，此时添加记录时候，会显示书签出错。而后最后一条记录的第一个字段处会显示前面某行相应字段的值。 问题点数：100、回复次数：2Top

1 楼daisy8675（莫依 沉迷）回复于 2005-09-04 13:35:43 得分 100

我真不知道你上面那段代码是做什么的？  
   
  如果是复杂的操作不要使用datagrid，datagrid没你想得那么NBTop

2 楼G5（）回复于 2005-09-04 14:18:30 得分 0

terteTop

相关问题

• datagrid
• me
• 记录
• datafield
• 周
• columns

• 帖主：G5
• daisy8675

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