OgrLayer.SaveChanges saves points with equal coordinates

Jul 29, 2015 at 9:34 AM
Hello to everybody.
I'm using Vb.Net.
I edit shapefile, loaded from PostGis, using theese functions:
Dim ds = New OgrDatasource()
...
Dim objects = AxMap1.get_Shapefile(AxMap1.AddLayer(ds.GetLayerByName("objects", True), True))
objects.StartEditingShapes(True)
for 
   objects.EditAddShape(point)
next
objects.Save()
objects.StopEditingShapes(True, True)
mf.AxMap1.get_OgrLayer(1).SaveChanges(count, tkOgrSaveType.ostSaveAll)
There are no errors in OgrLayer.UpdateSourceErrorCount.
As result I give all points in PostGis database with right attributes and wrong geometries, all the points have equal coordinates.

How can I fix this?
Jul 29, 2015 at 9:36 AM
Ignore "mf." please