ورود

View Full Version : سوال: Focus روی سلول خاص در دیتا گرید



MOR_MS
شنبه 14 شهریور 1394, 11:28 صبح
با سلام
- من یه دیتا گرید رو فرمم دارم که با استفاده از کلید اینتر بجای تب روی سلولهای اون حرکت میکنم حا میخوام وقتی روی یه سلول اومد وقتی اون سلول خالی بود همونجا بمونه و با اینتر دوم یه فرم باز بشه یا یه کدی اجرا بشه
- و دیگه اینکه توی دوتا سلول اگه هردو سلول خالی باشه یه طوری گیر کنه و به ردیف یا سلولهای بالا یا پایینتر نره تا مگر اینکه یدونه از سلولها پر بشه مثل بدهکار و بستانکار که تا یکی پرنشه از این دوتا خارج نشه

MOR_MS
یک شنبه 15 شهریور 1394, 12:15 عصر
کسی نیست کمکم کنه

shadi khanum
سه شنبه 31 شهریور 1394, 16:21 عصر
فرض کن یه گرید داری به اسم datagridview1
با این کد ها میتونی کارت رو انجام بدی

Private Sub DataGridView1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
If e.KeyCode = Keys.Enter Then
e.Handled = True
If DataGridView1.CurrentRow.Index Mod 2 = 0 Then

MsgBox("hi")
goToNExtCell()
Else
goToNExtCell()

End If
End If
End Sub

Private Sub goToNExtCell()
Try

If DataGridView1.CurrentCell.ColumnIndex < DataGridView1.Columns.Count - 1 Then
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index) .Cells(DataGridView1.CurrentCell.ColumnIndex + 1)
Else
If DataGridView1.CurrentRow.Index < DataGridView1.Rows.Count - 1 Then
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index + 1).Cells(0)
Else
DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)
End If


End If

Catch ex As Exception

End Try
End Sub




به جای اون شرطی که نوشتم که mod 2 = 0 شما شرط خودت رو بنویس، خالی بودن سلول و اینها و به جای msg دادن فرم رو باز کن