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

这个项目文件里面有两个数据表  数据表中的数据都是有规律的  我想请问 如何做个按钮或者什么 可以自动增加这样的数据呢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

 规则是什么？怎么添加数据？

那个数据表中有 就加入象数据表中一样的数据  所有数据都一样 加入一个按钮 可以自动生成这样的数据就行 SYID按照一个循环顺序增加  其他列都不变

 呃，不清楚，你要怎么操作，达到什么效果？

 你的意思是导入、合并数据？

不是合并  就是里面那两个表不是有数据吗  其他那个数据就是我天天扫描工具的数据 每天都要重复同样的动作  我意思是不是可以加个什么按钮  自动生成这样的数据 大哥

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

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

就是如何实现生成这样的数据    数据就是我这个EXCEL表的数据  我就想问问 如何能生成和这个一模一样的数据 这些数据时有规律的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:4.xls

不行啊 是不是类型设置错了 点了之后出现这个

此主题相关图片如下：未命名.jpg

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

 

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