Ana kodum bu:

For Each satir As DataGridViewRow In SATINALMA_DGW.SelectedRows
            If SIPARIS_FORMU.M1.Text = "" Then
                Dim sorgu As SqlCommand = New SqlCommand(("SELECT BIRIM_FIYATI,KUR FROM SATINALMA_MALZEMELER WHERE STOKKODU='" & satir.Cells("STOKKODU").Value & "'"), cn)
                Dim okuyucu As SqlDataReader
                cn.Open()
                okuyucu = sorgu.ExecuteReader
                While (okuyucu.Read)
                    SIPARIS_FORMU.BF1.Text = (okuyucu("BIRIM_FIYATI").ToString)
                    SIPARIS_FORMU.K1.Text = (okuyucu("KUR").ToString)
                End While
                cn.Close()
                If SIPARIS_FORMU.BF1.Text = "" Then
                    SIPARIS_FORMU.BF1.Text = "0"
                End If
                SIPARIS_FORMU.M1.Text = satir.Cells("ANAGRUP").Value & "-" & satir.Cells("ARAGRUP").Value & "-" & satir.Cells("MALZEME").Value & "-" & satir.Cells("OLCU").Value & "-" & satir.Cells("EKBILGI").Value
                SIPARIS_FORMU.A1.Text = satir.Cells("ADET").Value
                SIPARIS_FORMU.TF1.Text = CDec(SIPARIS_FORMU.BF1.Text) * CDec(SIPARIS_FORMU.A1.Text)
                SIPARIS_FORMU.IT1.Text = satir.Cells("IHTY_TARIHI").Value
                SIPARIS_FORMU.IS1.Text = satir.Cells("ADI").Value
                SIPARIS_FORMU.IN1.Text = satir.Cells("PROJE").Value & " " & satir.Cells("PARCA").Value & " " & satir.Cells("IHTY_NEDENI").Value
End if
Next

For Each satir As DataGridViewRow In SATINALMA_DGW.SelectedRows

satir.Cells("IHTY_TARIHI").Value

Şu iki satırı yeni devexpress e göre güncellemem lazım bir türlü entegre edemedim. ya collection farklı diyor ya burada cells kullanamazsın felan yazıyor.

Bu kodla eski datagridimde birden fazla kayıtı seçip sağ tıklayıp sipariş oluştur dediğimde yeni sipariş formu geliyor ve tüm verileri aktarabiliyorum.

Yeni devexpressin gridviewini kullanarak verileri felan çektim ama bir türlü sipariş formuma aktaramadım.