主题：[求助] 自动增加多行数据

 什么意思？执行多次增加一行的代码即可。

 

代码

Dim t1 As String = e.Form.Controls("TextBox1").Text
Dim t2 As String = e.Form.Controls("TextBox2").Text
Dim t3 As String = e.Form.Controls("TextBox3").Text
Dim t4 As String = e.Form.Controls("TextBox4").Text
Dim t5 As String = e.Form.Controls("TextBox5").Text
Dim t6 As String = e.Form.Controls("TextBox6").Text
Dim t7 As String = e.Form.Controls("TextBox7").Text
Dim t8 As String = e.Form.Controls("TextBox8").Text
Dim c1 As String = e.Form.Controls("ComboBox1").Text
Dim ndr As DataRow = DataTables("表A").Find("第一列 = '" & c1 & "' and 第二列 = '" & t1 & "' and 第三列 = '" & t2 & "'")
If ndr IsNot Nothing Then
    If t2 > "" Then
        ndr = DataTables("表A").AddNew
        ndr("第一列") = c1
        ndr("第二列") = t1
        ndr("第三列") = t2
        ndr("第四列") = t3
        ndr("第五列") = t4
    End If
    If t5 > "" Then
        ndr = DataTables("表A").AddNew
        ndr("第一列") = c1
        ndr("第二列") = t1
        ndr("第三列") = t2
        ndr("第四列") = t5
        ndr("第五列") = t6
    End If
    If t7 > "" Then
        ndr = DataTables("表A").AddNew
        ndr("第一列") = c1
        ndr("第二列") = t1
        ndr("第三列") = t2
        ndr("第四列") = t7
        ndr("第五列") = t8
    End If
End If

 

取决于你设置的条件

 

Dim ndr As DataRow = DataTables("表A").Find("第一列 = '" & c1 & "' and 第二列 = '" & t1 & "' and 第三列 = '" & t2 & "'")

 回复9楼，因为你 设备板件列表 里存在对应的相同数据的行。

 哦，写错了。改成这样

 

If ndr Is Nothing Then