سلام
این یه کد به زبان vb.net هست،با گرفتن الگو از اون میتونید مشکلتون رو حل کنید.
Dim connstring As String = "Data Source=SERVERname;Initial Catalog=dbname;Integrated Security=True"
Dim selectcommandstring As String = ""
selectcommandstring = "SELECT * FROM Table1 WHERE " & table1_items_collection.Item(ComboBox1.SelectedInd ex + 1) & " = @p1"
Dim resultda As New System.Data.SqlClient.SqlDataAdapter
Dim myconnection As New System.Data.SqlClient.SqlConnection(connstring)
Dim mycommand As New System.Data.SqlClient.SqlCommand(selectcommandstri ng, myconnection)
resultda.SelectCommand = mycommand
mycommand.Parameters.Add("@p1", SqlDbType.VarChar).Value = TextBox1.Text
myconnection.Open()
Dim resultds As New System.Data.DataSet
Me.SEARCHDATASET.Table1.Clear()
resultda.Fill(Me.SEARCHDATASET.Table1)
Dim table_row As DataRow
Dim row_number As Integer = 1
For Each table_row In SEARCHDATASET.Table1
'حذف تمام سطر ها بجز سطر آخر
If row_number < SEARCHDATASET.Table1.Rows.Count Then
table_row.Delete()
End If
row_number = row_number + 1
Next
SEARCHDATASET.Table1.AcceptChanges()
Me.ReportViewer1.RefreshReport()
پاسخ با نقل قول
