下述代码 在工具和设备窗体中的按钮事件中

Dim i1 As Integer = DataTables("工具和设备").DataRows.Count
Dim h As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ab1 As Row =Tables("创业计划书.工具和设备").Current
If i1 = h.text  Then
    Dim Result As DialogResult
    Result = MessageBox.Show("根据当前行设置数据,不能再次增加!且新增数据不会显示在模板中,是否确定操作!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Tables("创业计划书.工具和设备").AddNew()
        ab1("类型") ="交通工具"
    Else
       
    End If    
Else
    Dim vals() As String = {"交通工具","交通工具","交通工具","交通工具","交通工具","交通工具"}
    For i As Integer =0 To vals.Length - 1
        Dim ab As Row=Tables("创业计划书.工具和设备").AddNew()
        ab("类型") = vals(i)
    Next
End If

如何将上面的代码完善一下

实现如下效果

1、按钮新增行数为6行 类型为交通工具

2、新增行等于6行 且类型等于交通工具时候 提醒 只能一行一行增加

3、i1的值判断  求完善  期待实现：查询工具和设备表中 类型等于交通工具 且计划书编号等于创业计划书的计划书编号的 行的总数

 去写 BeforeAddDataRow

 判断表的行数。