[求助]DataGrid控件问题。

Question

本帖最后由 bcrun 于 2011-09-13 11:57:00 编辑

Answer 1

 with rs    
  Case Is = 2'这是什么意思，看不懂    
  .MoveNext
    
  If .EOF Then    
  MsgBox "记录已到尾！", , "提示"
    
  .MoveLast 
  End If'注释掉的语句似乎不需要，因为Movenext等命令会自动移到和DataSource对应的当前记录    
'  If DataGrid1.Row = rs.RecordCount - 1 Then
    
'  DataGrid1.Row = rs.AbsolutePosition
    
'  End If
    
'  If DataGrid1.Row < rs.RecordCount - 1 Then
    
'  DataGrid1.Row = DataGrid1.Row + 1
    
'  End If

Answer 2

显示的记录会通过MOVENEXT移动到下一条，但是左边的光标不会移动，要使用
DataGrid1.row = DataGrid1.row + 1 才能使左边的光标移动。但是有一个分界条件我找不到。