Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
''adapter.UpdateCommand = New SqlCommandBuilder(adapter).GetUpdateCommand()
''adapter.Update(dd)
''dt1.AcceptChanges()
i = e.RowIndex
If DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString = "" Then
Dim StrSQL As String = "INSERT INTO EmployeeXT (Name,Telphon ) VALUES ('" &
DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString & "','" &
DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString & "')"
ExecuteNonQueryXT(StrSQL)
DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
DataGridView1.Columns(0).Visible = False
Else
Dim StrSQL As String = "UPDATE EmployeeXT SET Name='" &
DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString &
"', Telphon='" & DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString &
"' Where ID='" & DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString & "'"
ExecuteNonQueryXT(StrSQL)
DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
DataGridView1.Columns(0).Visible = False
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
DataGridView1.Columns(0).Visible = False
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
DataGridView1.Columns(0).ReadOnly = True
End Sub
(16-09-20, 06:43 PM)asemshahen5 كتب : [ -> ]تفضل هذا مثال به ماتريد إنشاء الله .
عدلت طريقة الحفظ لتحفظ سجل سجل افضل من حفظ مجموعة فحظ المجموعة يسبب بطئ في كثرة البيانات .
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
DataGridView1.Columns(0).ReadOnly = True
End Sub
DataGridView1.DataSource = FillDgv("select * from EmployeeXT")
FillDgvComboBox(DataGridView1, "select * from EmployeeCmb", "Name", 1)
(15-09-20, 02:19 PM)Anas Mahmoud كتب : [ -> ]الكود يعمل انا جربته ، ارسل مثالك نعدل عليه