انتقال چند سطر از یک دیتاگرید به دیتاگرید دیگر

[rahime]

من توی قسمت سرچ پروژه ام که یه فرم جدا بود بعد از اینکه سرچ می شد با انتخاب یکی از سطرها اون به فرم دیگه انتقال پیدا می کرد.
حالا لازمه که اگه چند تا سطر انتخاب شد هم این امکان رو داشته باشه که با هم بره توی فرم بعد، تونستم همه رکوردهاش رو بفرستم اما اگه فقط چندتا انتخاب بشه رو هر کاری کردم نتونستم


میشه راهنمایی کنید

[mohsen92]

کدی رو که نوشتی بذار تا دقیق تر بفهمم میخوای چیکار کنی

[rahime]

Using myconn As New SqlClient.SqlConnection
myconn.ConnectionString = ConnStr.ConnectionString
Dim i As Integer = .DataGridView1.SelectedRows.Count
'فرم MO_SCANS فرمیه که اطلاعات از این صفحه بهش می ره
MO_SCANS.DsMain1.MO_SCAN.Clear()

'درصورتی که یه سطر انتخاب شده باشه این قسمت اجرا می شه
If i = 1 Then
Dim sqltext As String = " SELECT * FROM MO_SCAN WHERE S_ID = {0} "
Dim cmd As New SqlClient.SqlCommand(Nothing, myconn)
cmd.CommandText = String.Format(sqltext, Me.BsMo_Scan.Current.item("S_ID"))
Dim da As New SqlClient.SqlDataAdapter(cmd)
With MO_SCANS
da.Fill(.DsMain1.MO_SCAN)
End With
MO_SCANS.Enabled = True
Me.Close()
Else
' در صورتی همه رکوردها رو بخوایم بفرستیم این کار رو انجام دادم
.BsMo_Scan.MoveFirst()
Dim j As Integer = .DataGridView1.RowCount
While j > 0
Dim sqltext As String = " SELECT * FROM MO_SCAN WHERE S_ID = {0} "
Dim cmd As New SqlClient.SqlCommand(Nothing, myconn)
cmd.CommandText = String.Format(sqltext, Me.BsMo_Scan.Current.item("S_ID"))
Dim da As New SqlClient.SqlDataAdapter(cmd)
With MO_SCANS
da.Fill(.DsMain1.MO_SCAN)
End With
.BsMo_Scan.MoveNext()

j -= 1
End While
MO_SCANS.Enabled = True
Me.Close()
End If

If myconn.State <> ConnectionState.Closed Then myconn.Close()
End Using