bebakhshid
پنج شنبه 26 خرداد 1384, 21:22 عصر
سلام
من میخوام در یه table که n تا رکورد داره به تصادف 3 تا record را انتخاب کنم به
شرطی که یه فیلد خاص برابر "ali شود بعد در یه crystalreport نمایش دهم
بعد چاپ کنم
من این کد به نظرم رسید ؟؟؟؟
Randomize()
Dim r As New Random()
Dim i, GeneratedNumber As Integer
Dim ds As New DataSet()
Dim da As OleDbDataAdapter = New OleDbDataAdapter("select * from ryazi", OleDbConnection1)
Dim row As DataRow
Dim dt As New DataTable()
Dim dv As New DataView()
'da.Fill(ds, "ryazi.mdb")
For i = 1 To s1
GeneratedNumber = r.Next(1, 9) 'replace 100 with max
row = DS.Tables(0).Rows(GeneratedNumber)
dt.Rows.Add(row)
Next
CrystalReportViewer1.ReportSource = dt
:cry: :reading:
error زیر میگیره
this rows belongs to another table
من میخوام در یه table که n تا رکورد داره به تصادف 3 تا record را انتخاب کنم به
شرطی که یه فیلد خاص برابر "ali شود بعد در یه crystalreport نمایش دهم
بعد چاپ کنم
من این کد به نظرم رسید ؟؟؟؟
Randomize()
Dim r As New Random()
Dim i, GeneratedNumber As Integer
Dim ds As New DataSet()
Dim da As OleDbDataAdapter = New OleDbDataAdapter("select * from ryazi", OleDbConnection1)
Dim row As DataRow
Dim dt As New DataTable()
Dim dv As New DataView()
'da.Fill(ds, "ryazi.mdb")
For i = 1 To s1
GeneratedNumber = r.Next(1, 9) 'replace 100 with max
row = DS.Tables(0).Rows(GeneratedNumber)
dt.Rows.Add(row)
Next
CrystalReportViewer1.ReportSource = dt
:cry: :reading:
error زیر میگیره
this rows belongs to another table