主题：自动增加这样的数据呢?

呵呵，你的问题理解起来真是费力啊。

你得想办法让别人明白你的问题，最好举例说明。

If  e.Form.Controls("NumericComboBox1").value Is Nothing Then
    MessageBox.Show("没有增加行的条数")
    Return
End If
Dim sid As Integer = DataTables("gjsymxb1").Compute("max(syid)")
Dim i As Integer
For i=1  To e.Form.Controls("NumericComboBox1").value
    Dim drs As List(Of DataRow)
    drs = DataTables("gjsymxb1").Select("[syid] = 1")
    For Each dr As DataRow In drs
        Dim drnew As DataRow = DataTables("gjsymxb1").AddNew()
        For Each dc As DataCol In DataTables("gjsymxb1").DataCols
                drnew(dc.name) =dr(dc.name)
                drnew("syid") = sid + i
        Next
    Next
Next

最好看看：

http://www.foxtable.com/help/topics/1485.htm

这样遇到问题的时候，可以自己找出出错的代码，然后分析原因进行处理，而不是被动地坐等他人解决。