通过DataGridView显示数值到清单框CellClick事件

我目前正在使用VB.NET和SQL Server的数据库系统，除了我的CheckListBox和其他对象之后，一切正常。通过DataGridView显示数值到清单框CellClick事件

我创建了一个事件，当我点击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

来源

2014-11-17 Irond64dpool

您抛出异常。你可以设置一个断点，并通过... – Codexer

如果我还记得以及检查单元格值应该是：dgvMain.Rows（e.RowIndex）.Cells（yourcolumn）。值 – Codexer

谢谢！其实我从来没有尝试过，因为我还是从一个新的程序员开始，只从例子中学习。我会看看我能否找到问题并发布解决方案。我真的很感谢你的建议。 – Irond64dpool

正如我在我的评论中提到上述，请检查您的值，如下图所示;您也可以将这些单元格转换为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-17 11:58:25 Codexer

我尝试了上面的代码，但它给了我这个错误： 'InvalidCastException未处理' '从类型'DBNull'转换为类型'布尔'无效' – Irond64dpool

我在值后添加了ToString，它没有办法。

If dgvMain.Item(35, e.RowIndex).Value.ToString = "True" Then 
clbUnemployed.SetItemCheckState(0, CheckState.Checked) 
Else 
clbUnemployed.SetItemCheckState(0, CheckState.Unchecked) 
End If

......但现在我无法在PictureBox1上显示照片。这个问题似乎原产于这里（你也可以看到上面的代码）：

Dim ms As New MemoryStream(changephoto(CInt(dgvMain.SelectedCells(0).Value))) 
PictureBox1.Image = Image.FromStream(ms)

我用这个功能来做到这一点：

Function changephoto(ByVal photo As Integer) As Byte() 
     sqlCon.Open() 
     With sqlComm 
      .Connection = sqlCon 
      .CommandText = "SELECT Photo FROM Picture WHERE PersonId =" & dgvMain.SelectedRows(0).Cells(0).Value 
     End With 
     Dim myphoto() As Byte = CType(sqlComm.ExecuteScalar(), Byte()) 
     sqlCon.Close() 
     Return myphoto 
    End Function

错误说：从类型转换“的数据类型（此取决于我单击的单元格）'键入'整数'无效。

来源

2014-11-20 07:21:46 Irond64dpool

通过DataGridView显示数值到清单框CellClick事件

回答

相关问题