如何编辑此循环？

Posted 2021-04-14

我已经编写了一小段代码，但并没有达到我想要的效果。我的目标：

我有一个3行的文本框。每行=一个产品。我的第二个文本框有2行。每行=产品的1个变体。

我的结果应该是这样的：

人造草|红色

人造草。1|蓝色

暗孔板|红色

暗孔板。1|蓝色

测试孔板|红色

测试孔板。1|蓝色

我有此代码（已为您删除了所有不必要的参数）：

For value1 As Integer = 0 To NumberOfArticles - 1           
    Dim Name As String = ProductTB.Lines(value1)              
    Dim Variants As String = VariantsTB.Lines(value1)

    For value2 As Integer = 1 To VariantsCountTB.Text - 1    'TextBox with number of variants                                  
        DataGridView1.Rows.Add(New String() { VariantsTB.Lines(value2 - 1)}) 
        DataGridView1.Rows.Add(New String() {VariantsTB.Lines(value2)}) 
    Next

    If value1 = NumberOfArticles Then
        Exit For
    End If
Next

名称是产品文本框的每一行。变体是变体TextBox的每一行。

问题：它可以工作，但是仅当有与产品一样多的变体时。但是我只需要2个变体，但3个产品。那么，在哪里编辑此循环？

非常感谢！ ：）

最诚挚的问候