Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动增加这样的数据呢?


  共有8699人关注过本帖树形打印复制链接

主题：自动增加这样的数据呢?
帅哥哟，离线，有人找我吗？
litiemiao
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		自动增加这样的数据呢?  发帖心情 Post By：2012/12/18 16:42:00 [显示全部帖子]

这个项目文件里面有两个数据表  数据表中的数据都是有规律的  我想请问 如何做个按钮或者什么 可以自动增加这样的数据呢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.rar
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		  发帖心情 Post By：2012/12/18 17:36:00 [显示全部帖子]

以下是引用lin_hailun在2012-12-18 16:48:00的发言：
 规则是什么？怎么添加数据？

那个数据表中有 就加入象数据表中一样的数据  所有数据都一样 加入一个按钮 可以自动生成这样的数据就行 SYID按照一个循环顺序增加  其他列都不变
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		  发帖心情 Post By：2012/12/19 8:46:00 [显示全部帖子]

以下是引用lin_hailun在2012-12-18 17:42:00的发言：
 呃，不清楚，你要怎么操作，达到什么效果？

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

不是合并  就是里面那两个表不是有数据吗  其他那个数据就是我天天扫描工具的数据 每天都要重复同样的动作  我意思是不是可以加个什么按钮  自动生成这样的数据 大哥
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		  发帖心情 Post By：2012/12/19 10:22:00 [显示全部帖子]

以下是引用狐狸爸爸在2012-12-19 8:53:00的发言：

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

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

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:4.xls
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		  发帖心情 Post By：2012/12/19 12:34:00 [显示全部帖子]

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

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


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		  发帖心情 Post By：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

 

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

好德 谢谢

 
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		  发帖心情 Post By：2012/12/19 13:22: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

 

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

狐狸爸爸 我只做了一个表啊 还有GISYB2呢 那个涉及到一个日期列  怎么办呢 那个日期咧也是顺序增加的  你刚才做的那个我明白了 。。。可是这个日期列要怎么弄呢  辛苦
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		  发帖心情 Post By：2012/12/19 13:36: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

 

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

狐狸爸爸 如果这里其中一个列式日期列 且 日期列也要顺序增加 那么  drnew("syid") = sid +i  

                                                                                          drnew("syrq")= 设置变量名sdi1 + i 吗？

 
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		  发帖心情 Post By：2012/12/20 14:59:00 [显示全部帖子]

以下是引用lin_hailun在2012-12-19 14:01:00的发言：
 日期列这样添加1。

 drnew("syrq") = drnew("syrq").AddDays(1)

谢谢 我自己初学 弄了个方法 就是 dim s as interger   s=e.form.controls("text1").value   drnew("syrq")=s.adddays(i)
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00 		  发帖心情 Post By：2012/12/22 19:04:00 [显示全部帖子]

以下是引用lin_hailun在2012-12-20 15:11:00的发言：
 应该这样写吧？

dim s as date
s = e.form.controls("text1").value  
drnew("syrq") = s.adddays(i)

对 对 着急打错了
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询