hi
Crystal report showing data after refreshing it two times.
Code is
Call Dime If rs.State = 1 Then rs.Close End If rs.Source = "Select * from DailyCustomer" rs.Open rs.AddNew rs.Fields("Bill_No") = Me.txtbillno.Text rs.Fields("Customer_Name") = Me.txtcustomername.Text rs.Fields("Date") = Me.DTPicker1.Value rs.Fields("Work") = Me.txtwork.Text rs.Fields("Amount") = Me.txtamount.Text rs.Fields("Paid") = Me.txtpaid.Text rs.Fields("Balance") = Me.txtbalance.Text rs.Update rs.Close '-------- If cmd.State = 1 Then cmd.Cancel End If cmd.CommandText = "Delete * from Temp" cmd.Execute cmd.Cancel If rs.State = 1 Then rs.Close End If rs.Source = "Insert into Temp Select * from DailyCustomer where Bill_No='" & Me.txtbillno.Text & "'" rs.Open Me.CrystalReport1.ReportFileName = App.Path & "\rptcustomerbill.RPT" Me.CrystalReport1.RetrieveDataFiles Me.CrystalReport1.PrintReport Set rs = Nothing con.Close '-------- Call Dime If rs.State = 1 Then rs.Close End If
rs.Source = "select Bill_No from DailyCustomer where Bill_No = (Select Max(CInt(Bill_No)) from DailyCustomer)" rs.Open If Not rs.EOF Then Me.txtbillno.Text = Val(rs.Fields("Bill_No")) + Val(1) End If rs.Close con.Close Me.txtwork.Text = "" Me.txtamount.Text = "" Me.txtpaid.Text = "" Me.txtbalance.Text = "" Me.txtcustomername.Text = ""
Pankaj
------------- Pankaj Kumar
|