ولی نمیدونم چرا تو Active Report جواب نداد!
مثلا اطلاعات جدول یک رو نمایش میده ولی اطلاعات جدول دو را نه!
چون بنده از Active Report استفاده میکنم!بجای کدهای شما این کدهارو جایگزین کردم!
With ActiveReport1
With .DataControl1 ' ADO DataControl
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\DataBase\Ashkan.mdb;Jet OLEDB:Database Password=;"
.Source = "select * from Tbl1 inner join Tbl2 on Tbl1.ID=Tbl2.ID"
' .Source = "SELECT * From Tbl1 "
End With
.Refresh
End With
ActiveReport1.Refresh
ActiveReport1.Show 1
بجای این خط:
' .Source = "SELECT * From Tbl1 "
که کامنت کردم ،خط بالاییش رو جایگزین کردم!ولی جواب نمیده!
تو فرم لود هم از این کد استفاده میکنم:
On Error Resume Next
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\DataBase\Ashkan.mdb;Jet OLEDB:Database Password=;"
Adodc1.RecordSource = "SELECT * FROM Tbl1"
Adodc1.Refresh
سلام علیکم
در ActiveReport نباید مشکلی داشته باشه ، شاید هم بخاطر AutoNumber نبودن فیلدها باشه که البته بعید میدونم اینطور باشه، روی این سیستم که بنده نشسته ام نصب نیست تست کنم،
.
.
.
وقتی مثلا این عدد رو 400,000,000 وارد میکنیم!کدهای بالا باعث میشن که تو عملیات محاسباتی فقط آخرین ارقام از سمت چپ محاسبه بشن!
مثلا400,000,000 * 2 جوابش میشه=800
یا40,000,000 * 2 جوابش میشه=80
.
.
.
برای محاسبه میتوانیم کاما را حذف کنیم، برای مثال:
Private Sub Command1_Click()
Caption = 2 * Val(Replace("400,000,000", ",", ""))
End Sub
یا
Private Sub Command1_Click()
Caption = 2 * Val(Replace("40,000,000", ",", ""))
End Sub
موفق باشید