|
ｿｽ@ｿｽｿｽDataGridViewｿｽﾅ最終ｿｽsｿｽｿｽIｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽI
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
AYAKA 2008/08/15(ｿｽｿｽ) 21:05:34
ｿｽｿｽｿｽｿｽﾎゑｿｽﾍ。
DataGridViewｿｽﾅ最終ｿｽsｿｽｿｽIｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽﾄ悩ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
DataGridViewｿｽﾅ１ｿｽsｿｽIｿｽｿｽｿｽｿｽuｿｽ除ｿｽvｿｽ{ｿｽ^ｿｽｿｽｿｽﾅ論ｿｽｿｽｿｽ除(DELFLG=1ｿｽｿｽZｿｽbｿｽgｿｽｿｽｿｽｿｽ)ｿｽｿｽｿｽｿｽ
ｿｽyｿｽｿｽz
ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽRｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ迴ｿｽﾔに選ｿｽｿｽｿｽｿｽﾄ削除ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾆ１ｿｽﾔ目（ｿｽﾅ終ｿｽsｿｽjｿｽAｿｽQｿｽﾔ目（ｿｽ^ｿｽ中）ｿｽﾍ厄ｿｽｿｽﾈゑｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾅ鯉ｿｽﾌ行ｿｽiｿｽ謫ｪｿｽsｿｽjｿｽｿｽｿｽIｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
ｿｽiDataGridView1_RowEnterｿｽjｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽvｿｽﾈゑｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽI
ｿｽﾈゑｿｽｿｽADataGridView1_RowEnterｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾉ行ｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽかｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽyｿｽIｿｽｿｽｿｽｿｽｿｽｿｽz
ｿｽIｿｽｿｽｿｽｿｽｿｽｿｽsｿｽﾌ難ｿｽeｿｽｿｽｿｽﾊ擾ｿｽﾌテｿｽLｿｽXｿｽgｿｽGｿｽｿｽｿｽAｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
Private Sub DataGridView1_RowEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowEnter
If Me.DataGridView1.SelectedRows.Count > 0 Then
Me.TextBox1.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(0).FormattedValue
Me.TextBox2.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(2).FormattedValue
End If
End Sub
ｿｽyｿｽ除ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽz
ｿｽIｿｽｿｽsｿｽﾌキｿｽ[ｿｽｿｽｿｽｿｽﾉ鯉ｿｽｿｽｿｽｿｽｿｽｿｽYｿｽｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾉ削除ｿｽtｿｽｿｽｿｽOｿｽｿｽZｿｽbｿｽgｿｽｿｽｿｽｿｽ
DataGridView1ｿｽｿｽｿｽIｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Dim Row As DataSet.Test_Row
Row = Dt.FindByNo(Index)
If Row Is Nothing Then
MessageBox.Show("ｿｽfｿｽ[ｿｽ^ｿｽｿｽIｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ", "ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽW")
Else
Row("DELFLG") = 1
End If
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ参ｿｽﾆ包ｿｽｿｽ@ｿｽﾍ趣ｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
DataSet
BindingSource
TableAdapter
DataGridViewｿｽﾉバｿｽCｿｽｿｽｿｽhｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽyForm1.Loadｿｽzｿｽfｿｽ[ｿｽ^ｿｽｿｽ謫ｾｿｽｿｽｿｽﾄ、ｿｽtｿｽBｿｽｿｽｿｽ^ｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Using Ta As New Test_DataSetTableAdapters.TestTableAdapter
Dt = Ta.GetData()
End Using
TestBindingSource.DataSource = Dt
TestBindingSource.Filter = ("DELFLG = 0")
ｿｽyForm1ｿｽz
Private Dt As Test_DataSet.TestDataTable
ｿｽ`ｿｽxｿｽ`ｿｽjｿｽ` 2008/08/21(ｿｽｿｽ) 11:42:58
DataGridViewｿｽﾅ選ｿｽｿｽsｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽ
RowEnterｿｽﾈ外ｿｽﾉなにゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2008/08/21(ｿｽｿｽ) 19:52:01
ｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽｿｽﾇ、ｿｽﾅ有ｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽ[VB2008]ｿｽﾅゑｿｽｿｽｿｽｿｽﾋゑｿｽｿｽB
ｿｽVｿｽｿｽｿｽｿｽｿｽZｿｽpｿｽﾍノｿｽEｿｽnｿｽEｿｽﾌ蓄ｿｽﾏゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽ答ゑｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾆ趣ｿｽｿｽｿｽｿｽﾅ抵ｿｽｿｽﾗるしｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ。
[VB2005]ｿｽｿｽ RowEnter ｿｽｿｽ "DELFLG" = 1 ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾇ、ｿｽZｿｽｿｽ1ｿｽｿｽ
ｿｽIｿｽｿｽﾌ趣ｿｽｿｽﾉは擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽATextBox ｿｽﾍ更ｿｽVｿｽｿｽｿｽ黷ｸｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBSelectionMode ｿｽﾆゑｿｽｿｽｿｽﾏゑｿｽｿｽﾄゑｿｽじゑｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾈゑｿｽｿｽBｿｽBｿｽB
ｿｽｿｽ`ｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽﾏ撰ｿｽｿｽｿｽｿｽｿｽ驍ｵｿｽBｿｽBｿｽB
ｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで。ｿｽBｿｽB
[DataGridView ｿｽｿｽｿｽｿｽｿｽo]
http://msdn.microsoft.com/ja-jp/library/system.windows.forms.datagridview_members.aspx
ｿｽCｿｽxｿｽｿｽｿｽgｿｽ中心ｿｽﾉゑｿｽｿｽｿｽ轤ｵｿｽｿｽｿｽﾌゑｿｽ繧ｩｿｽ邇趣ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでは？
ｿｽPｿｽｿｽｿｽｿｽ CurrentCellChanged ｿｽﾅゑｿｽ SelectedRows ｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽｿｽ
ｿｽLｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽARowHeaderMouseClick ｿｽﾆゑｿｽｿｽｿｽgｿｽｿｽｿｽ驍ｩｿｽｿｽ
ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾋ。SelectionChanged ｿｽﾆゑｿｽｿｽB
ｿｽｿｽ 2008/08/21(ｿｽｿｽ) 21:42:41
>RowEnter
>ｿｽsｿｽｿｽｿｽｿｽｿｽﾍフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽけ趣ｿｽｿｽAｿｽｿｽｿｽﾝの行ｿｽﾉなゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ費ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾅ鯉ｿｽﾌ１ｿｽs = ｿｽｿｽｿｽﾝの行
ｿｽﾌゑｿｽｿｽﾟイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?
ClickｿｽnｿｽﾆゑｿｽMouseDown(UP)ｿｽｿｽｿｽｿｽｿｽｿｽﾅはどゑｿｽｿｽﾅゑｿｽｿｽｿｽ?
#ｿｽ除ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ鯉ｿｽｿｽﾝ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽRowｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ
#ｿｽｿｽｿｽﾄのでゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB
AYAKA 2008/08/28(ｿｽｿｽ) 16:52:11
ｿｽﾝなゑｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
VS2005ｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
>ClickｿｽnｿｽﾆゑｿｽMouseDown(UP)ｿｽｿｽｿｽｿｽｿｽｿｽﾅはどゑｿｽｿｽﾅゑｿｽｿｽｿｽ?
ｿｽｿｽﾌ的ｿｽﾉどのようｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾆゑｿｽしｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
AYAKA 2008/08/28(ｿｽｿｽ) 17:41:24
ｿｽﾝなゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
Private Sub DataGridView1_MouseClickｿｽﾅゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
If Me.DataGridView1.SelectedRows.Count > 0 Then
Me.TextBox1.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(0).FormattedValue
Me.TextBox2.Text = Me.DataGridView1.Rows(e.RowIndex).Cells(2).FormattedValue
End If
ｿｽue.RowIndexｿｽvｿｽﾅエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
'System.Windows.Forms.MouseEventArgs' ｿｽﾌｿｽｿｽｿｽｿｽoｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇのようｿｽﾉ対擾ｿｽｿｽｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽ 2008/08/29(ｿｽｿｽ) 14:18:18
DataGridView1_CellMouseClick
ｿｽﾌ包ｿｽｿｽﾅはゑｿｽｿｽﾟでゑｿｽｿｽｿｽ?
DataGridView1.SelectionModeｿｽｿｽFullRowSelectｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽ骼橸ｿｽｿｽ
ｿｽｿｽｿｽｿｽﾈ外ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽがｿｽﾏゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
AYAKA 2008/08/29(ｿｽｿｽ) 18:06:00
ｿｽuｿｽﾆ」ｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
DataGridView1.SelectionModeｿｽｿｽFullRowSelectｿｽﾅゑｿｽｿｽB
DataGridView1_CellMouseClickｿｽﾅゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽ
ｿｽIｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ鯉ｿｽｿｽﾛでゑｿｽｿｽB
AYAKA 2008/08/29(ｿｽｿｽ) 18:06:06
ｿｽuｿｽﾆ」ｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
DataGridView1.SelectionModeｿｽｿｽFullRowSelectｿｽﾅゑｿｽｿｽB
DataGridView1_CellMouseClickｿｽﾅゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽ
ｿｽIｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ鯉ｿｽｿｽﾛでゑｿｽｿｽB
ｿｽｿｽ 2008/08/29(ｿｽｿｽ) 23:11:11
ｿｽuｿｽｿｽｿｽ[ｿｽNｿｽｿｽ
> If Me.DataGridView1.SelectedRows.Count > 0 Then
ｿｽﾌ擾ｿｽｿｽﾅ止ｿｽﾟてゑｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ?
ｿｽｿｽｿｽｿｽｿｽDataGridView1_CellMouseClickｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽ黷ｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
> If Me.DataGridView1.SelectedRows.Count > 0 Then
ｿｽﾍ費ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽ?
ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽ
ｿｽ示の擾ｿｽだゑｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ再鯉ｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾈゑｿｽ*ｿｽﾌ行ｿｽﾆゑｿｽｿｽoｿｽﾄゑｿｽｿｽﾄまゑｿｽｿｽB
KG 2008/08/30(ｿｽy) 00:32:05
>ｿｽﾈゑｿｽ*ｿｽﾌ行ｿｽﾆゑｿｽｿｽoｿｽﾄゑｿｽｿｽﾄまゑｿｽｿｽB
AllowUserToAddRowsｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽTrueｿｽﾈんじゑｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
