[سعود]

شوف كلاس الفورم بعد التعديل حذفت كل شيء الا تعبئة شريط العناوين وتحريكه

PHP كود :

Imports System.Data.OleDb
Public Class Form1
    Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=msg.mdb")
    Dim da As OleDbDataAdapter
    Dim cm As OleDbCommandBuilder
    Dim dt As DataTable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillData()
        Label9.Left = 0 - Label9.Width
        For g As Integer = 0 To dt.Rows.Count - 1
            Label9.Text &= "    " & dt(g)("Publication")
        Next
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Label9.Left >= Me.Panel1.Width Then Label9.Left = 0 - Label9.Width
        Label9.Left += 1
    End Sub
    Private Sub FillData()
        da = New OleDbDataAdapter("Select * from MOUVEMENT", con)
        cm = New OleDbCommandBuilder(da)
        dt = New DataTable
        da.Fill(dt)
        Me.DataGridView1.DataSource = dt
    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        da.Update(dt)
        FillData()
    End Sub
End Class 


الحذف بشكل يدوي تحدد اي صف في الداتاجريدفيو وتنقر زر الحذف من لوحة المفاتيح وتنقر زر الحفظ او التحديث