maryam206
یک شنبه 18 شهریور 1386, 09:05 صبح
با DataEnvironment یک گزارش ار جدول درست کردم اما نمتوانم آن گزارش خاصی که در datagrid نمایش می دهم آن را گزارش بگیرم کد برنامه را برای شما ارسال می کنم لطفا مرا راهنمایی کنید. با تشکر
Private Sub Command1_Click()
'DataReport2.Refresh
DataEnvironment1.Connection1 = "select * from syniptempdayminbelow00 where stcode='" & Form83.Text4.Text & "'and yeard='" & Form83.Combo2.Text & "'"
DataReport1.Show
DataReport1.Refresh
End Sub
Private Sub Command2_Click()
DataGrid2.Visible = True
Adodc2.RecordSource = "select stcode from synopmoshakhasatistga where stnamf='" & Combo1.Text & "'"
Adodc1.RecordSource = "select * from syniptempdayminbelow00 where stcode='" & Text4.Text & "'and yeard='" & Combo2.Text & "'"
Adodc3.RecordSource = "select stlong from synopmoshakhasatistga where stcode='" & Text4.Text & "' "
Adodc4.RecordSource = "select stlat from synopmoshakhasatistga where stcode='" & Text4.Text & "'"
Adodc5.RecordSource = "select steleve from synopmoshakhasatistga where stcode='" & Text4.Text & "'"
Adodc1.Refresh
Adodc2.Refresh
Adodc3.Refresh
Adodc4.Refresh
Adodc5.Refresh
End Sub
Private Sub Command1_Click()
'DataReport2.Refresh
DataEnvironment1.Connection1 = "select * from syniptempdayminbelow00 where stcode='" & Form83.Text4.Text & "'and yeard='" & Form83.Combo2.Text & "'"
DataReport1.Show
DataReport1.Refresh
End Sub
Private Sub Command2_Click()
DataGrid2.Visible = True
Adodc2.RecordSource = "select stcode from synopmoshakhasatistga where stnamf='" & Combo1.Text & "'"
Adodc1.RecordSource = "select * from syniptempdayminbelow00 where stcode='" & Text4.Text & "'and yeard='" & Combo2.Text & "'"
Adodc3.RecordSource = "select stlong from synopmoshakhasatistga where stcode='" & Text4.Text & "' "
Adodc4.RecordSource = "select stlat from synopmoshakhasatistga where stcode='" & Text4.Text & "'"
Adodc5.RecordSource = "select steleve from synopmoshakhasatistga where stcode='" & Text4.Text & "'"
Adodc1.Refresh
Adodc2.Refresh
Adodc3.Refresh
Adodc4.Refresh
Adodc5.Refresh
End Sub