obj = (From c In dc.Sotrudniks _
                              Where c.SotrudnikId = mId _
                              Select c).Single
            obj.Name = FIOTextEdit.Text.Trim
            obj.TelefonBeeline = TelephonTextEdit.Text.Trim
            obj.DirectionId = mDirectionId
            dc.SubmitChanges()

  GridControl1.DataSource = Nothing
        GridView1.Columns.Clear()
        GridBindingSource.DataSource = From c In dc.Sotrudniks _
                                       Where c.DirectionId = DirectionId _
                                       Select c
        GridControl1.DataSource = GridBindingSource.DataSource