搜索的值在VB.net中显示为来自datagridview的msgbox

时间:2016-09-23 09:43:29

标签: search datagridview msgbox

我正在通过逗号分隔的*文本文件中的datagridview查看我的数据。我搜索并找到值并更改其颜色和字体以进行分离。实际上这已经足够了。但我计划通过msgbox显示搜索行的列(1)值,然后计算语音合成,以便向其他人提供信息。 我的问题是,我无法在msgbox的第(1)栏中显示搜索到的值。我的搜索条件是时间。在我的专栏(1)中,我有一些文本,它将按时间搜索并显示为msgbox。所有在一个msgbox。 我的程序如下。它工作正常。

Private Sub Timer1_Tick(ByVal sender As     System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Label4.Text = Format(Date.Now(), "HH:mm:ss")
    tt = Format(Date.Now(), "HH:mm:ss")
    For i As Integer = 0 To DGV1.RowCount - 1
        If DGV1.Rows(i).Cells("Column3").Value.ToString = tt Then
            DGV1.Rows(i).DefaultCellStyle.ForeColor = Color.Red
            DGV1.Rows(i).DefaultCellStyle.Font = New Font("TAHOMA", 14, FontStyle.Bold)
            MsgBox(DGV1.Rows(i).Cells("Column0").Value.ToString)
        End If
    Next i
End Sub

我和我在一起两三天......感谢你......

1 个答案:

答案 0 :(得分:0)

我发现了...... 首先将datagridview的属性更改为" Full Row select"在选择模式。然后将msgbox命令更改为 " Msgbox(DGV1.Selectedrow(i).Cells(" Column0")。Value.To string)并置于if then条件语句之外。

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
Label4.Text = Format(Date.Now(), "HH:mm:ss") 
tt = Format(Date.Now(), "HH:mm:ss") 
For i As Integer = 0 To DGV1.RowCount - 1 
If DGV1.Rows(i).Cells("Column3").Value.ToString = tt Then 
DGV1.Rows(i).DefaultCellStyle.ForeColor = Color.Red
DGV1.Rows(i).DefaultCellStyle.Font = New Font("TAHOMA", 14, FontStyle.Bold)
End If
MsgBox(DGV1.SelectedRows(i).Cells("Column0").Value.ToString)
Next i
End Sub

我的下一期是"另外两个选择的数据不在一个msgbox中...请帮我解决这个问题..