aftabeshargh
سه شنبه 16 اسفند 1390, 12:00 عصر
سلام
نمیدونم چرا با زدن این دکمه که دستورات زیر توش هست ، فرمم بسته میشه آخه !!!!
If dgv.RowCount = 0 Then
Exit Sub
End If
If MsgBox("با حذف رکورد مورد نظر موافق هستید ؟", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "توجه") = MsgBoxResult.Yes Then
ExecuteQuery("delete tbl_sh where id=" + dgv.CurrentRow.Cells(0).Value.ToString)
End If
Dim dt As New DataTable
dt = SelectQuery("select id as [ردیف],mp as [مبلغ پرداختی],mb as [مبلغ بدهی],ta as [تاریخ]from tbl_sh where ido=" + lblido.Text)
dgv.DataSource = dt
dgv.Columns(0).Visible = False
نمیدونم چرا با زدن این دکمه که دستورات زیر توش هست ، فرمم بسته میشه آخه !!!!
If dgv.RowCount = 0 Then
Exit Sub
End If
If MsgBox("با حذف رکورد مورد نظر موافق هستید ؟", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "توجه") = MsgBoxResult.Yes Then
ExecuteQuery("delete tbl_sh where id=" + dgv.CurrentRow.Cells(0).Value.ToString)
End If
Dim dt As New DataTable
dt = SelectQuery("select id as [ردیف],mp as [مبلغ پرداختی],mb as [مبلغ بدهی],ta as [تاریخ]from tbl_sh where ido=" + lblido.Text)
dgv.DataSource = dt
dgv.Columns(0).Visible = False