[求助] 自动增加多行数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如下图所示：我希望当点击 “保存”按钮时：1、首先检测 “表A” 中是否有存在相同内容行、如果有就不增加该行；2、如果没有就新增三行；3、每行都填入“设备”中的3个内容、而“板件”中的3对内容则按每行进行填入。4、添加完后删除“板件名称”和“板件型号”列中内容同时为“”的行。

此主题相关图片如下：360截图20140714194434671.jpg

此主题相关图片如下：360截图20140714193700406.jpg

[此贴子已经被作者于2014-7-14 19:51:03编辑过]

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

你能写一个给我参考吗？

[此贴子已经被作者于2014-7-14 20:10:53编辑过]

代码

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

'If ndr IsNot Nothing Then

这条命令是什么意思？加上这条命令的话就无论如何都增加不了行

判断是否找到 NDR这一行不增加行说明一直找到.

以下是引用wumingrong1在2014-7-15 8:47:00的发言：
'If ndr IsNot Nothing Then

这条命令是什么意思？加上这条命令的话就无论如何都增加不了行

取决于你设置的条件

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

但是我敢百分比确保表A 中绝对没有和我录入内容相同的行；但就是还是没有新增到行；不使用它就可以

Dim c1 As String = e.Form.Controls("ComboBox1").Text

Dim t51 As String = e.Form.Controls("TextBox51").Text

Dim t52 As String = e.Form.Controls("TextBox52").Text

Dim t1 As String = e.Form.Controls("TextBox1").Text

Dim t2 As String = e.Form.Controls("TextBox2").Text

Dim ndr As DataRow = DataTables("设备板件列表").Find("设备厂家 = '" & c1 & "' and 设备名称 = '" & t51 & "' and 设备型号 = '" & t52 & "'and 板件名称 = '" & t1 & "'and 板件型号 = '" & t2 & "'")

If ndr IsNot Nothing Then

If t1 > "" And t2 > "" Then

ndr = DataTables("设备板件列表").AddNew()

ndr("设备厂家") = c1

ndr("设备名称") = t51

ndr("设备型号") = t52

ndr("板件名称") = t1

ndr("板件型号") = t2

End If

以上这样就怎么也新增不了行；下面这样就可以