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


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

主题：自动增加这样的数据呢?
帅哥哟，离线，有人找我吗？
litiemiao
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 吗？

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


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/12/19 14:01:00 [只看该作者]

 日期列这样添加1。

 drnew("syrq") = drnew("syrq").AddDays(1)
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/12/20 15:11:00 [只看该作者]

 应该这样写吧？

dim s as date
s = e.form.controls("text1").value  
drnew("syrq") = s.adddays(i)
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

对 对 着急打错了
 回到顶部
帅哥哟，离线，有人找我吗？
litiemiao
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

大哥 能留个 QQ  交流一下吗
 回到顶部
总数 18 上一页 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.04395 秒, 4 次数据查询