0

私は現在、VB.NET と SQL Server を使用してデータベース システムに取り組んでいます。CheckListBox とそれに続く他のオブジェクトを除いて、すべて正常に動作しています。

DataGridView 内のセルをクリックするたびに、その中のビット (データ型) データが CheckListBox に表示され、クリックしたセルに応じて値が変更されるイベントを作成しました。

問題は次のとおりです。一度クリックすると、クリックしたセルに応じてチェックボックスがチェックされますが、異なるビット値を持つ別のセルをクリックすると、チェックボックスは変更されず、その後の残りのコードは変更されません。動作しません。

私が使用したコードのサンプルは次のとおりです。

 Private Sub dgvMain_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dgvMain.CellClick
 Try

     /*These codes work....*/

            dtpReg.Text = dgvMain.Item(1, e.RowIndex).Value
            txtFirstName.Text = dgvMain.Item(2, e.RowIndex).Value
            txtMiddleName.Text = dgvMain.Item(3, e.RowIndex).Value
            txtLastName.Text = dgvMain.Item(4, e.RowIndex).Value
            If dgvMain.Item(5, e.RowIndex).Value = True Then
                optMale.Checked = True
            Else
                optFemale.Checked = True
            End If
            dtpBirthdate.Text = dgvMain.Item(6, e.RowIndex).Value
            cboCivilStatus.Text = dgvMain.Item(8, e.RowIndex).Value
            dtpResidency.Text = dgvMain.Item(9, e.RowIndex).Value
            txtSt.Text = dgvMain.Item(10, e.RowIndex).Value
            cboBrgy.Text = dgvMain.Item(11, e.RowIndex).Value
            cboEducation.Text = dgvMain.Item(12, e.RowIndex).Value
            chkStudy.Checked = dgvMain.Item(13, e.RowIndex).Value
            chkTB.Checked = dgvMain.Item(14, e.RowIndex).Value
            chkMalnourished.Checked = dgvMain.Item(15, e.RowIndex).Value
            chkIllDisabled.Checked = dgvMain.Item(16, e.RowIndex).Value
            chkSoloParent.Checked = dgvMain.Item(17, e.RowIndex).Value
            chkActive.Checked = dgvMain.Item(19, e.RowIndex).Value
            If dgvMain.Item(20, e.RowIndex).Value = "Public center/hospital" Then
                optPublic.Checked = True
            ElseIf dgvMain.Item(20, e.RowIndex).Value = "Private center/hospital" Then
                optPrivate.Checked = True
            ElseIf dgvMain.Item(20, e.RowIndex).Value = "Non-professional" Then
                optNonProf.Checked = True
            End If
            txtTelephone.Text = dgvMain.Item(21, e.RowIndex).Value
            txtMobile.Text = dgvMain.Item(22, e.RowIndex).Value
            txtEmail.Text = dgvMain.Item(23, e.RowIndex).Value

  /*Unemployed ----> This is where the CheckListBox problem occurs*/

            If dgvMain.Item(24, e.RowIndex).Value = True Then

                clbUnemployed.SetItemCheckState(0, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(0, CheckState.Unchecked)
            End If
            If dgvMain.Item(25, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(1, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(1, CheckState.Unchecked)
            End If
            If dgvMain.Item(26, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(2, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(2, CheckState.Unchecked)
            End If
            If dgvMain.Item(27, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(3, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(3, CheckState.Unchecked)
            End If
            If dgvMain.Item(28, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(4, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(4, CheckState.Unchecked)
            End If
            If dgvMain.Item(29, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(5, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(5, CheckState.Unchecked)
            End If
            If dgvMain.Item(30, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(6, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(6, CheckState.Unchecked)
            End If
            If dgvMain.Item(31, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(7, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(7, CheckState.Unchecked)
            End If
            If dgvMain.Item(32, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(8, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(8, CheckState.Unchecked)
            End If
            If dgvMain.Item(33, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(9, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(9, CheckState.Unchecked)
            End If
            If dgvMain.Item(34, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(10, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(10, CheckState.Unchecked)
            End If
            If dgvMain.Item(35, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(11, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(11, CheckState.Unchecked)
            End If
            If dgvMain.Item(36, e.RowIndex).Value = True Then
                clbUnemployed.SetItemCheckState(12, CheckState.Checked)
            Else
                clbUnemployed.SetItemCheckState(12, CheckState.Unchecked)
            End If

/*Employment ---> the code after this doesn't work. Text doesn't display. Not one RadioButton checked. No picture on the picturebox. Why?*/

            cboIndustry.Text = dgvMain.Item(37, e.RowIndex).Value
            txtSalary.Text = dgvMain.Item(38, e.RowIndex).Value
            cboJobStatus.Text = dgvMain.Item(39, e.RowIndex).Value
            If dgvMain.Item(40, e.RowIndex).Value = True Then
                optGyes.Checked = True
            Else
                optGno.Checked = True
            End If
            txtBrgySubd.Text = dgvMain.Item(41, e.RowIndex).Value
            txtCityMunicipality.Text = dgvMain.Item(42, e.RowIndex).Value
            txtProvince.Text = dgvMain.Item(43, e.RowIndex).Value
         Dim ms As New MemoryStream(changephoto(CInt(dgvMain.SelectedCells(0).Value)))
            PictureBox1.Image = Image.FromStream(ms)

 Catch ex As Exception

        End Try

    End Sub
4

2 に答える 2

0

上記のコメントで述べたように、以下に示すように値を確認してみてください。DataGridViewCheckBoxCellそれらのセルも同様にキャストしたい場合があります。また、コードで例外をスローしている可能性があります。ブレークポイントを設定し、スローされたかどうかを確認してください。スローされた場合は、その例外を投稿してください。

 If CType(dgvMain.Rows(e.RowIndex).Cells("your column"), DataGridViewCheckBoxCell).Value Then
   'Do your work if it's true
 Else
   'Do something else...
 End If
于 2014-11-17T11:58:25.850 に答える