Λοιπά θέματα

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

KelMan — Sun, 11 Dec 2005 09:22:49 GMT

For Each DR In ds.Tables(0).Rows
   If DR.RowState <> DataRowState.Deleted AndAlso Not DR.IsNull("Παραγγελία") Then
      If CType(DR.Item("Παραγγελία"), Boolean) = False Then
         iDS += 1
      End If
   End If
Next

Αυτός ο έλεγχος σου χρειάζεται οποτεδήποτε κάνεις access datarows και δεν είναι φρέσκα-φρέσκα από τη database.

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

ape — Sun, 11 Dec 2005 03:03:58 GMT

χμμμ!!!πωσ μπαίνει ο έλεγχος αυτός??????

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

Χρήστος Γεωργακόπουλος — Sat, 10 Dec 2005 21:28:39 GMT

Εεεεπ, μην πέφτετε και στο κλασσικό λάθος. Πρέπει να μπει και έλεγχος για το rowstate. Αν πέσει πάνω σε deleted row θα σκάσει...

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

ape — Sat, 10 Dec 2005 09:06:19 GMT

ok !!!! δεν θα το ξανακάνω το ίδιο λάθος!!!!! χιχιιχιχιχιχιχιχιχιχ
Ευχαριστώ πολύ!!!

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

KelMan — Sat, 10 Dec 2005 08:09:27 GMT

Μόνο αν υποσχεθείς ότι δεν θα ξαναγράψεις τις μεταβλητές με κεφαλαία

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

ape — Sat, 10 Dec 2005 07:59:50 GMT

ok!!!!!!!einai!!!!
sas eyxaristo poly!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

xixixixiixixixix
Eyxaristo!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
an exo kai allo problhma na saw xanaenoxlhso????

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

Panagiotis Kefalidis — Sat, 10 Dec 2005 07:35:48 GMT

KelMan wrote:
Έγινα γρήγορος!

AHHAHAHAHAHAHAHAHHAHAHA όντως

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

KelMan — Sat, 10 Dec 2005 07:35:24 GMT

Μάλλον θα πρέπει να πεις

CType(DR.Item("Παραγγελία"), Boolean) = True

εφόσον θες τα selected...

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

ape — Sat, 10 Dec 2005 07:33:28 GMT

Σωστόοοοοοοοοοοοοοο!!!!
αλλά δεν βρίσκει ούτε μία εγγραφή ενώ εχω τσεκάρει!!!!!
Ετχαριστώ!!!!!

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

KelMan — Sat, 10 Dec 2005 07:33:02 GMT

Έγινα γρήγορος!

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

Panagiotis Kefalidis — Sat, 10 Dec 2005 07:30:57 GMT

Mpleh, το σβησα το δικό μου.. με πρόλαβες! :P

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

KelMan — Sat, 10 Dec 2005 07:27:38 GMT

Υποθέτω δεν σου χτυπάει το ίδιο λάθος... Κάνε τη διόρθωση

For Each DR In ds.Tables(0).Rows
   If Not DR.IsNull("Παραγγελία") Then
      If CType(DR.Item("Παραγγελία"), Boolean) = False Then
         iDS += 1
      End If
   End If
Next

Στον κώδικα που είχες γράψει έκανες το loop και μετά τους ελέγχους και επίσης τελικά τα δύο if δεν ήταν nested.

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

ape — Sat, 10 Dec 2005 07:20:15 GMT

Imports System.Data
Imports System.Data.OleDb
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.BandedGrid
Imports DevExpress.XtraEditors.Repository
Imports ADODB

Public Class Form1
Inherits System.Windows.Forms.Form
Dim ds As DataSet = New DataSet("Materials")
Dim da As OleDbDataAdapter

#Region " Windows Form Designer generated code "

[Snipped by KelMan]

#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connString As String
connString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Application.StartupPath & "\GIARDINO.mdb;"
Dim MYCON As OleDbConnection = New OleDbConnection
MYCON.ConnectionString = connString
Dim SQL As String
SQL = "SELECT * FROM MASTER_MATERIAL_GIARDINO"

da = New OleDbDataAdapter(SQL, MYCON)
Try
da.Fill(ds, "Materials")
Catch ex As Exception
End Try
ds.Tables(0).Columns.Add("Παραγγελία", System.Type.GetType("System.Boolean"))
ds.Tables(0).Columns.Add("Ποσότητα", System.Type.GetType("System.Int32"))
GridControl1.DataSource = ds.Tables("Materials")
GridView1.Columns(9).OptionsColumn.AllowGroup = DevExpress.Utils.DefaultBoolean.True
GridView1.Columns(1).OptionsColumn.ReadOnly = True
GridView1.Columns(9).OptionsColumn.ReadOnly = False
GridView1.Columns(10).OptionsColumn.ReadOnly = False
GridView1.Columns(10).Visible = True
GridView1.Columns(8).Visible = False
GridView1.Columns(4).Visible = False
GridView1.Columns(4).Visible = False
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim connString As String
connString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Application.StartupPath & "\GIARDINO.mdb;"
Dim MYCON As OleDbConnection = New OleDbConnection
MYCON.ConnectionString = connString
Dim SQL As String
SQL = "SELECT * FROM MASTER_MATERIAL_GIARDINO WHERE MASTER_MATERIAL_GIARDINO.ΚΩΔΙΚΟΣ LIKE '" & TextBox1.Text & "%'"
Me.TextBox11.Text = Me.TextBox1.Text
Try
Dim IMGPATH As String = Application.StartupPath & "\IMG\" & TextBox11.Text & ".JPG"
Dim IMG As New Bitmap(IMGPATH)
Me.PictureBox1.Image = IMG
Catch ex As Exception
PictureBox1.Image = Nothing
End Try
Dim ds As DataSet = New DataSet("Materials")
Dim da As OleDbDataAdapter = New OleDbDataAdapter(SQL, MYCON)
Try
da.Fill(ds, "Materials")
Catch ex As Exception
End Try
GridControl1.DataSource = ds.Tables("Materials")
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim connString As String
connString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Application.StartupPath & "\GIARDINO.mdb;"
Dim MYCON As OleDbConnection = New OleDbConnection
MYCON.ConnectionString = connString
Dim SQL As String
SQL = "SELECT * FROM MASTER_MATERIAL_GIARDINO WHERE MASTER_MATERIAL_GIARDINO.ΠΕΡΙΓΡΑΦΗ LIKE '" & TextBox2.Text & "%'"
'Dim ds As DataSet = New DataSet("Materials")
Dim da As OleDbDataAdapter = New OleDbDataAdapter(SQL, MYCON)
Try
da.Fill(ds, "Materials")
Catch ex As Exception
End Try
GridControl1.DataSource = ds.Tables("Materials")
End Sub
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
Dim connString As String
connString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Application.StartupPath & "\GIARDINO.mdb;"
Dim MYCON As OleDbConnection = New OleDbConnection
MYCON.ConnectionString = connString
Dim SQL As String
SQL = "SELECT * FROM MASTER_MATERIAL_GIARDINO WHERE MASTER_MATERIAL_GIARDINO.EAN LIKE '" & TextBox8.Text & "%'"
Dim ds As DataSet = New DataSet("Materials")
Dim da As OleDbDataAdapter = New OleDbDataAdapter(SQL, MYCON)
Try
da.Fill(ds, "Materials")
Catch ex As Exception
End Try
GridControl1.DataSource = ds.Tables("Materials")
End Sub
Private Sub Panel4_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel4.Paint
End Sub
Private Sub Panel3_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel3.Paint
End Sub
Private Sub GridControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridControl1.Click
Dim KODIKOS As String
Dim ROWHANDLE As Integer
Dim PERIGRAFH As String
Dim DIASTASEIS As String
Dim TIMH As String
Dim DIATHESIMOTHTA As String
Dim ENALLAKTIKH As String
Dim BARCODE As String
Dim KODIKOS1 As String
ROWHANDLE = GridView1.FocusedRowHandle

KODIKOS = (GridView1.FocusedRowHandle)
KODIKOS1 = (GridView1.GetFocusedRowCellValue(GridView1.Columns(0)))
PERIGRAFH = (GridView1.GetFocusedRowCellValue(GridView1.Columns(1)))
DIASTASEIS = (GridView1.GetFocusedRowCellValue(GridView1.Columns(3)))
TIMH = (GridView1.GetFocusedRowCellValue(GridView1.Columns(6)))
DIATHESIMOTHTA = (GridView1.GetFocusedRowCellValue(GridView1.Columns(7)))
ENALLAKTIKH = (GridView1.GetFocusedRowCellValue(GridView1.Columns(2)))
BARCODE = (GridView1.GetFocusedRowCellValue(GridView1.Columns(4)))
Me.TextBox11.Text = KODIKOS1
Me.TextBox12.Text = PERIGRAFH
Me.TextBox16.Text = DIASTASEIS
Me.TextBox14.Text = TIMH
Me.TextBox15.Text = DIATHESIMOTHTA
Try
Me.TextBox7.Text = ENALLAKTIKH
Catch ER As Exception
Me.TextBox7.Text = " "
End Try
Me.TextBox13.Text = BARCODE
Try
Dim IMGPATH As String = Application.StartupPath & "\IMG\" & TextBox11.Text & ".JPG"
Dim IMG As New Bitmap(IMGPATH)
Me.PictureBox1.Image = IMG
Catch ex As Exception
PictureBox1.Image = Nothing
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim KLEISIMO As New Form1
Dim EISODOS_PARAGGELIAS As New Form3
EISODOS_PARAGGELIAS.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim iDS As Integer
Dim DR As DataRow
For Each DR In ds.Tables(0).Rows
Next
If Not DR.IsNull("Παραγγελία") Then
End If
If CType(DR.Item("Παραγγελία"), Boolean) = False Then
iDS += 1
End If
MessageBox.Show(iDS)
End Sub
End Class

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

Panagiotis Kefalidis — Sat, 10 Dec 2005 07:15:40 GMT

Κάνε ποστ ολο το κώδικα σου..

Απ: ΠΛΗΘΟΣ ΤΣΕΚΑΡΙΣΜΕΝΩΝ ΕΓΓΡΑΦΩΝ ΣΕ GRID (ΠΡΟΒΛΗΜΑ)!!!!!!

ape — Sat, 10 Dec 2005 07:14:56 GMT

Σας Ευχαριστώ πολύ πάντως είστε πολύ ευγενικοί και οι δύο!!!!!!