Datagridview不添加行数据 [英] Datagridview doesnt add row data

问题描述

数据网格视图不会在行中添加任何数据，下面给出示例代码

Data Grid view doesn't add any data in row, sample code given below

Public Sub MT_Validate_Msg(ByRef lbData() As Byte)
        Dim lsAddr(3) As String
        Dim lsMAC(5) As String
        Dim lstConfig As TCP_SER_Config
        If lbData.Length >= 256 Then
            'Check Header Footer and Response Size
            If lbData(0) = Asc("$") And lbData(1) = Asc("#") _
                And lbData(254) = Asc("<") And lbData(255) = Asc(">") _
                And lbData(2) = UDP_RESPONSE_SIZE And lbData(3) = 0 Then
                gnDevice_Search_Count += 1
                'MsgBox("Response Received")
                lsAddr(0) = lbData(7).ToString
                lsAddr(1) = lbData(9).ToString
                lsAddr(2) = lbData(11).ToString
                lsAddr(3) = lbData(13).ToString

                lstConfig.IP = String.Join(".", lsAddr)


                lsAddr(0) = lbData(15).ToString
                lsAddr(1) = lbData(17).ToString
                lsAddr(2) = lbData(19).ToString
                lsAddr(3) = lbData(21).ToString

                lstConfig.Subnet = String.Join(".", lsAddr)


                lsAddr(0) = lbData(23).ToString
                lsAddr(1) = lbData(25).ToString
                lsAddr(2) = lbData(27).ToString
                lsAddr(3) = lbData(29).ToString

                lstConfig.Gateway = String.Join(".", lsAddr)

                lstConfig.Alive_Time = lbData(31)

                lsMAC(0) = Hex(lbData(33)).ToString
                lsMAC(1) = Hex(lbData(34)).ToString
                lsMAC(2) = Hex(lbData(35)).ToString
                lsMAC(3) = Hex(lbData(36)).ToString
                lsMAC(4) = Hex(lbData(37)).ToString
                lsMAC(5) = Hex(lbData(38)).ToString

                lstConfig.MAC = String.Join("-", lsMAC)

                MT_Fill_Grid()
            End If
        End If
    End Sub

    Public Sub MT_Fill_Grid()
        'GridDev_List.RowCount = 3
        Dim row As String() = New String() {"1", "192.168.0.100", "255.255.255.0", "255.255.255.255", "60", "22-0B-3C-2D-00-01"}
        GridDev_List.Rows.Add(row)

    End Sub

推荐答案

）和 lbData（ 1 ）= Asc（ ＃）_
和 lbData（ 254 ）= Asc（ <）和 lbData（ 255 ）= Asc（ >）_
和 lbData（ 2 ）= UDP_RESPONSE_SIZE 和 lbData（ 3 ）= 0 然后
gnDevice_Search_Count + = 1
' MsgBox（响应收到）
lsAddr（ 0 ）= lbData（ 7 ）。ToString
lsAddr（ 1 ）= lbData（ 9 ）。ToString
lsAddr（ 2 ） = lbData（ 11 ）。ToString
lsAddr（ 3 ）= lbData（ 13 ）。ToString

lstConfig.IP = 字符串 .Join（ 。，lsAddr）


lsAddr（ 0 ）= lbData（ 15 ）。ToString
lsAddr（ 1 ）= lbData（ 17 ）.ToString
lsAddr（ 2 ）= lbData（ 19 ）。ToString
lsAddr（ 3 ）= lbData（ 21 ）。ToString

lstConfig.Subnet = 字符串 .Join（ 。 ，lsAddr）


lsAddr（ 0 ）= lbData（ 23 ）。ToString
lsAddr（ 1 ）= lbData（ 25 ）。ToString
lsAddr（ 2 ）= lbData（ 27 ）。ToString
lsAddr（ 3 ）= lbData（ 29 ）。ToString

lstConfig.Gateway = 字符串 .Join（ 。，lsAddr）

lstConfig.Alive_Time = lbData（ 31 ）

lsMAC（ 0 ）= Hex（lbData（ 33 ） ）.ToString
lsMAC（ 1 ）= Hex（lbData（ 34 ））。ToString
lsMAC（ 2 ）= Hex（lbData（ 35 ））。ToString
lsMAC （ 3 ）= Hex（lbData（ 36 ））。ToString
lsMAC（ 4 ）= Hex（lbData（ 37 ））。ToString
lsMAC（ 5 ）= Hex（lbData（ 38 ））。ToString

lstConfig.MAC = String .Join（ - ，lsMAC）

MT_Fill_Grid（）
结束 如果
结束 如果
结束 Sub

公开 Sub MT_Fill_Grid（）
' GridDev_List.RowCount = 3
Dim 行作为 字符串（）= 新 字符串（）{ 1， 192.168.0.100， 255.255.255.0， 255.255.255.255， 60， 22-0B-3C-2D-00-01}
GridDev_List.Rows.Add（row）

结束 Sub

") And lbData(1) = Asc("#") _ And lbData(254) = Asc("<") And lbData(255) = Asc(">") _ And lbData(2) = UDP_RESPONSE_SIZE And lbData(3) = 0 Then gnDevice_Search_Count += 1 'MsgBox("Response Received") lsAddr(0) = lbData(7).ToString lsAddr(1) = lbData(9).ToString lsAddr(2) = lbData(11).ToString lsAddr(3) = lbData(13).ToString lstConfig.IP = String.Join(".", lsAddr) lsAddr(0) = lbData(15).ToString lsAddr(1) = lbData(17).ToString lsAddr(2) = lbData(19).ToString lsAddr(3) = lbData(21).ToString lstConfig.Subnet = String.Join(".", lsAddr) lsAddr(0) = lbData(23).ToString lsAddr(1) = lbData(25).ToString lsAddr(2) = lbData(27).ToString lsAddr(3) = lbData(29).ToString lstConfig.Gateway = String.Join(".", lsAddr) lstConfig.Alive_Time = lbData(31) lsMAC(0) = Hex(lbData(33)).ToString lsMAC(1) = Hex(lbData(34)).ToString lsMAC(2) = Hex(lbData(35)).ToString lsMAC(3) = Hex(lbData(36)).ToString lsMAC(4) = Hex(lbData(37)).ToString lsMAC(5) = Hex(lbData(38)).ToString lstConfig.MAC = String.Join("-", lsMAC) MT_Fill_Grid() End If End If End Sub Public Sub MT_Fill_Grid() 'GridDev_List.RowCount = 3 Dim row As String() = New String() {"1", "192.168.0.100", "255.255.255.0", "255.255.255.255", "60", "22-0B-3C-2D-00-01"} GridDev_List.Rows.Add(row) End Sub

Public Sub MT_Fill_Grid()
       'GridDev_List.RowCount = 3
       Dim row As DataGridViewRow() = New DataGridViewRow() {"1", "192.168.0.100", "255.255.255.0", "255.255.255.255", "60", "22-0B-3C-2D-00-01"}
       GridDev_List.Rows.Add(row)

   End Sub

或简单地做

or simply do

GridDev_List.Rows.Add("1", "192.168.0.100", "255.255.255.0", "255.255.255.255", "60", "22-0B-3C-2D-00-01") 

尝试将Dim row As String（）替换为Dim行As DataGridViewRow（）

try replacing Dim row As String() with Dim row As DataGridViewRow()

这篇关于Datagridview不添加行数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！