Foxtable(狐表)用户栏目专家坐堂 → 如何给新增的多行,同时赋值?


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

主题:如何给新增的多行,同时赋值?

帅哥哟,离线,有人找我吗?
17777188
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:371 威望:0 精华:0 注册:2011/12/27 23:02:00
如何给新增的多行,同时赋值?  发帖心情 Post By:2016/11/27 12:58:00 [只看该作者]

Dim max As String
Dim idx As Integer
    max = DataTables("项目合伙人明细表").Compute("Max(项目编号)")   
If max > "" Then  
    idx = CInt(max.Substring(4,3)) + 1 
Else 
    idx = 1
End If

Dim hhrcount As Integer = e.Form.Controls("TextBox1").value

Dim dr As Row
dr = Tables("项目合伙人明细表").AddNew(hhrcount)
dr("项目编号") = "hhxm" & Format(idx,"000")

===========
给项目编号赋值时,只能赋第一行,。  求给新增的多行同时赋值?怎么搞?

 回到顶部
帅哥哟,离线,有人找我吗?
17777188
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:371 威望:0 精华:0 注册:2011/12/27 23:02:00
  发帖心情 Post By:2016/11/27 13:58:00 [只看该作者]

根据 狐狸爸爸的 帖子 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=88397&skin=0 改成了,。

Dim max As String
Dim idx As Integer
    max = DataTables("项目合伙人明细表").Compute("Max(项目编号)")   
If max > "" Then  
    idx = CInt(max.Substring(4,3)) + 1 
Else 
    idx = 1
End If

Dim hhrcount As Integer = e.Form.Controls("TextBox1").value

Dim dr As Row
dr = Tables("项目合伙人明细表").AddNew(hhrcount)

For xmno As  Integer = 1 To idx
    dr("项目编号") = "hhxm" & Format(idx,"000")
Next

==========
还是不行~~~图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/11/27 14:12:00 [只看该作者]

Dim max As String
Dim idx As Integer
max = DataTables("项目合伙人明细表").Compute("Max(项目编号)")
If max > "" Then
    idx = CInt(max.Substring(4,3)) + 1
Else
    idx = 1
End If

Dim hhrcount As Integer = e.Form.Controls("TextBox1").value

Dim count As Integer = Tables("项目合伙人明细表").rows.count
Tables("项目合伙人明细表").AddNew(hhrcount)
For i As Integer = count To count+hhrcount-1
    Tables("项目合伙人明细表").Rows(i)("项目编号") = "hhxm" & Format(idx,"000")
Next


 回到顶部
帅哥哟,离线,有人找我吗?
17777188
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:371 威望:0 精华:0 注册:2011/12/27 23:02:00
  发帖心情 Post By:2016/11/27 14:31:00 [只看该作者]

谢谢~~实现了~~
以下是引用有点色在2016/11/27 14:12:00的发言:

Dim max As String
Dim idx As Integer
max = DataTables("项目合伙人明细表").Compute("Max(项目编号)")
If max > "" Then
    idx = CInt(max.Substring(4,3)) + 1
Else
    idx = 1
End If

Dim hhrcount As Integer = e.Form.Controls("TextBox1").value

Dim count As Integer = Tables("项目合伙人明细表").rows.count
Tables("项目合伙人明细表").AddNew(hhrcount)
For i As Integer = count To count+hhrcount-1
    Tables("项目合伙人明细表").Rows(i)("项目编号") = "hhxm" & Format(idx,"000")
Next


 回到顶部