响应网络当前行改变事件

'响应网络当前行改变事件
Sub DBGrid31_EventCurRowChanged(nRowIndex)
'改变数据引擎的当前记录
  if DBEngine.CurIndex() <> nRowIndex-DBGrid31.GetFixedRowCount then
     DBEngine.GoToRecord nRowIndex-DBGrid31.GetFixedRowCount
  end if
End Sub