第二个问题你可以根据以下的代码做一下改进
If Key = KeyEnter! Then
If This.GetColumnName() = is_last_edit_col And This.ib_autoaddrow Then
If This.GetRow() = This.RowCount() Then
This.Trigger Event ue_addrow()
Return 1
End If
End If
send(Handle(this),256,9,0)
return 1
End If