以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动增加这样的数据呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26966)
--  作者：litiemiao
--  发布时间：2012/12/18 16:42:00
--  自动增加这样的数据呢?
这个项目文件里面有两个数据表  数据表中的数据都是有规律的  我想请问 如何做个按钮或者什么 可以自动增加这样的数据呢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.rar
--  作者：lin_hailun
--  发布时间：2012/12/18 16:48:00
--  
 规则是什么？怎么添加数据？
--  作者：litiemiao
--  发布时间：2012/12/18 17:36:00
--  
以下是引用lin_hailun在2012-12-18 16:48:00的发言：
 规则是什么？怎么添加数据？

那个数据表中有 就加入象数据表中一样的数据  所有数据都一样 加入一个按钮 可以自动生成这样的数据就行 SYID按照一个循环顺序增加  其他列都不变
--  作者：lin_hailun
--  发布时间：2012/12/18 17:42:00
--  
 呃，不清楚，你要怎么操作，达到什么效果？

 你的意思是导入、合并数据？
[此贴子已经被作者于2012-12-18 17:42:40编辑过]
--  作者：litiemiao
--  发布时间：2012/12/19 8:46:00
--  
以下是引用lin_hailun在2012-12-18 17:42:00的发言：
 呃，不清楚，你要怎么操作，达到什么效果？

 你的意思是导入、合并数据？
[此贴子已经被作者于2012-12-18 17:42:40编辑过]

不是合并  就是里面那两个表不是有数据吗  其他那个数据就是我天天扫描工具的数据 每天都要重复同样的动作  我意思是不是可以加个什么按钮  自动生成这样的数据 大哥
--  作者：狐狸爸爸
--  发布时间：2012/12/19 8:53:00
--  

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

你得想办法让别人明白你的问题，最好举例说明。
--  作者：litiemiao
--  发布时间：2012/12/19 10:22:00
--  
以下是引用狐狸爸爸在2012-12-19 8:53:00的发言：

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

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

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:4.xls
--  作者：litiemiao
--  发布时间：2012/12/19 12:34:00
--  
以下是引用muhua在2012-12-19 11:04:00的发言：
 下载信息  [文件大小：420.0 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.foxdb

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


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2012/12/19 12:51:00
--  

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

 

这样遇到问题的时候，可以自己找出出错的代码，然后分析原因进行处理，而不是被动地坐等他人解决。
--  作者：litiemiao
--  发布时间：2012/12/19 13:14:00
--  
以下是引用狐狸爸爸在2012-12-19 12:51:00的发言：

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

 

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

好德 谢谢