RZ_HAFEZ
چهارشنبه 21 شهریور 1386, 17:46 عصر
با سلام
من میخوام یه گزارش براساس کد و فاصله بین دوتاریخ تهیه کنم
کد من
Private Sub Command1_Click()
Dim x As String
x = "select * from math where code='" & Combo1.Text & " and tarick>='" & Text3.Text & " and tarick<='" & Text5.Text & "'"
DataEnvironment1.rsCommand2.Filter = x
DataReport2.Show 1
End Sub
یا
Private Sub Command1_Click()
" code='" & Combo1.Text & " and tarick>='" & Text3.Text & " and tarick<='" & Text5.Text & "'"
DataEnvironment1.rsCommand2.Filter = x
DataReport2.Show 1
End Sub
و پیغام خطا میدهد
failed getting rowset(s) from current data source
با تشکر از همه شما
من میخوام یه گزارش براساس کد و فاصله بین دوتاریخ تهیه کنم
کد من
Private Sub Command1_Click()
Dim x As String
x = "select * from math where code='" & Combo1.Text & " and tarick>='" & Text3.Text & " and tarick<='" & Text5.Text & "'"
DataEnvironment1.rsCommand2.Filter = x
DataReport2.Show 1
End Sub
یا
Private Sub Command1_Click()
" code='" & Combo1.Text & " and tarick>='" & Text3.Text & " and tarick<='" & Text5.Text & "'"
DataEnvironment1.rsCommand2.Filter = x
DataReport2.Show 1
End Sub
و پیغام خطا میدهد
failed getting rowset(s) from current data source
با تشکر از همه شما