ویرایش در دیتا گرید

[yavari]

سلام

من یه گرید دارم که یکی از ستوناش کومبو هست و کومبو از بانک دیتاسورس میگیره .
میخوام پس از انتخاب آیتمی از کومبو باکس برای تمام سطرای گریدم اونا رو ذخیره کنم .
enable Editing رو برا گریدم فعال کردم اما مشکل اینجاس که وقتی آیتمی از کومبو رو انتخاب میکنم ،گریدم میره تو مد ویرایش و نمیذاره من به کنترلهای دیگه صفحم دسترسی داشته باشم
ممنون میشم بگید مشکلم چجوری حل میشه ! :لبخندساده:

با احترام

[yavari]

سلام

http://isattis.blogfa.com/post-1.aspx

[urmiainfo]

PrivateSub Display_DataGridViwer() 'پروسه نمایش اطلاعات ذخیره شده در بانک

DataTSave.Clear()
' bank.mdb بازگشایی فایل

If objcon.State = ConnectionState.Closed Then objcon.Open()
' نمایش نام انبارها

SQLStr = "SELECT ID_Hesab, Hesab, Noe_H FROM Tbl_Hesab_Sharh"

Dim objcmd AsNew SqlCommand(SQLStr, objcon)
DataTSave.Load(objcmd.ExecuteReader)
SQLStr = "SELECT Noe_H, SharNoe FROM Tbl_Hesab_Group"

Dim objcmdNoe AsNew SqlCommand(SQLStr, objcon)
NoeTable.Load(objcmdNoe.ExecuteReader)
objcmdNoe.Dispose()
objcon.Close()
Try

dgv.DataSource = DataTSave
With dgv
.Columns(0).HeaderText = " کد حساب"

.Columns(0).Width = 90
.Columns(0).ReadOnly = True

.Columns(1).HeaderText = " عنوان حساب"

.Columns(1).Width = 350
.Columns(2).Visible = False

Dim ColCombo AsNew DataGridViewComboBoxColumn
With ColCombo
.HeaderText = " نوع حساب"

.Width = 130
.DataSource = NoeTable
.DataPropertyName = "Noe_H"

.ValueMember = "Noe_H"

.DisplayMember = "SharNoe"

EndWith

.Columns.Add(ColCombo)
Dim style AsNew DataGridViewCellStyle
With style
.BackColor = Color.Beige
.ForeColor = Color.Brown
EndWith

' Apply the style as the default cell style.

.AlternatingRowsDefaultCellStyle = style
.Focus()
EndWith

objcon.Close()
Catch ex As Exception
FMsg.ShowM(ex.Message, "خطا در واکشی اطلاعات حساب - سعی مجدد", "تایید", "", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
EndTry

EndSub

[urmiainfo]

Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorSave.Click
Dim DSave AsNew DataTable
Dim Col1 AsNew DataColumn("ID_Hesab")
Dim Col2 AsNew DataColumn("Hesab")
Dim Col3 AsNew DataColumn("Noe_H")
Col2.MaxLength = 40
DSave.Columns.Add(Col1)
DSave.Columns.Add(Col2)
DSave.Columns.Add(Col3)
If objcon.State = ConnectionState.Closed Then objcon.Open()
SQLStr = "Delete FROM Tbl_Hesab_Sharh"

Dim objcmd AsNew SqlCommand(SQLStr, objcon)
objcmd.ExecuteNonQuery()
objcmd.Dispose()
Dim i AsLong = 0
Dim workRow As DataRow
For i = 0 To DGV.Rows.Count - 2
workRow = DSave.NewRow
workRow("ID_Hesab") = DGV.Rows(i).Cells(0).Value
workRow("Hesab") = DGV.Rows(i).Cells(1).Value
workRow("Noe_H") = DGV.Rows(i).Cells(3).Value.ToString
DSave.Rows.Add(workRow)
Next

SQLStr = "SELECT ID_Hesab, Hesab, Noe_H FROM Tbl_Hesab_Sharh"

Dim ObjData AsNew SqlDataAdapter(SQLStr, objcon)
Dim DataSave AsNew SqlCommandBuilder(ObjData)
DataSave.RefreshSchema()
DataSave.DataAdapter.Update(DSave)
ObjData.Dispose()
objcon.Close()

[urmiainfo]

Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorSave.Click
Dim DSave AsNew DataTable
Dim Col1 AsNew DataColumn("ID_Hesab")
Dim Col2 AsNew DataColumn("Hesab")
Dim Col3 AsNew DataColumn("Noe_H")
Col2.MaxLength = 40
DSave.Columns.Add(Col1)
DSave.Columns.Add(Col2)
DSave.Columns.Add(Col3)
If objcon.State = ConnectionState.Closed Then objcon.Open()
SQLStr = "Delete FROM Tbl_Hesab_Sharh"
Dim objcmd AsNew SqlCommand(SQLStr, objcon)
objcmd.ExecuteNonQuery()
objcmd.Dispose()
Dim i AsLong = 0
Dim workRow As DataRow
For i = 0 To DGV.Rows.Count - 2
workRow = DSave.NewRow
workRow("ID_Hesab") = DGV.Rows(i).Cells(0).Value
workRow("Hesab") = DGV.Rows(i).Cells(1).Value
workRow("Noe_H") = DGV.Rows(i).Cells(3).Value.ToString
DSave.Rows.Add(workRow)
Next
SQLStr = "SELECT ID_Hesab, Hesab, Noe_H FROM Tbl_Hesab_Sharh"
Dim ObjData AsNew SqlDataAdapter(SQLStr, objcon)
Dim DataSave AsNew SqlCommandBuilder(ObjData)
DataSave.RefreshSchema()
DataSave.DataAdapter.Update(DSave)
ObjData.Dispose()
objcon.Close()