vb.net导入excel，生成上级parent_id

 tb_name = "tb_cat_department"

                    Dim depart_name As String = Nothing
                    Dim post_type As String = Nothing
                    Dim parent_id As Integer = 0
                    Dim tmp_id(1) As Integer
                   
                    i = 0
                    For Each tmpdataRow In tmpDatatableX.Rows
                        i = i + 1
                        If i > 1 Then '导入数据从第2行开始
                            post_type = Convert.ToString(tmpdataRow(3))
                            For j = 0 To cols - 2
                                If Len(Convert.ToString(tmpdataRow(j))) > 0 Then
                                    Dim rand = New System.Random()
                                    Dim randx As String = rand.Next(100, 999).ToString() '随机数

                                    depart_na