Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新增行的问题


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

主题：新增行的问题
美女呀，离线，留言给我吧！
qianqian1530
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		新增行的问题  发帖心情 Post By：2015/4/23 5:51:00 [只看该作者]

'''

If e.DataRow.RowState = DataRowState.Added Then
    Dim dsr As DataRow = DataTables("S_系统_自動更新").AddNew
    dsr("系统编号") = e.DataRow("系统编号")
    dsr("域名") =  e.DataRow("域名")
    dsr("地址") = e.DataRow("地址")
End If

*这个代码我写在了 DataRowAdded    里面

当前表新增行的时候,  将指定列新增到 另一个 表里. 

但是, 另一个表里行是增加了, 但数据没过来.

为什么呢?
 回到顶部
帅哥哟，离线，有人找我吗？
新福星
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15508 威望：0 精华：0 注册：2011/7/16 20:59:00 		  发帖心情 Post By：2015/4/23 6:20:00 [只看该作者]

If e.DataRow.RowState = DataRowState.Added Then
Dim dsr As Row = Tables("S_系统_自動更新").AddNew
dsr("系统编号") = e.DataRow("系统编号")
dsr("域名") = e.DataRow("域名")
dsr("地址") = e.DataRow("地址")
dsr.save
End If
 
这样试试
 回到顶部
美女呀，离线，留言给我吧！
qianqian1530
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		  发帖心情 Post By：2015/4/23 8:25:00 [只看该作者]

  还是一样, 没效果.

 回到顶部
美女呀，离线，留言给我吧！
qianqian1530
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		  发帖心情 Post By：2015/4/23 8:43:00 [只看该作者]

....

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/23 8:44:00 [只看该作者]

DataRowAdded     是新增行事件, 你刚新增,你又没用代码给它赋值.此时何来的值呢.

 回到顶部
美女呀，离线，留言给我吧！
qianqian1530
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		  发帖心情 Post By：2015/4/23 8:48:00 [只看该作者]

我是用代码赋值的啊 

Dim dr As DataRow = DataTables("S_系统_店舗情報").AddNew()
Dim sxd As  String
For Each drs As DataRow In DataTables("S_系统_店舗情報").Select("")
sxd & =drs("系统编号") & "|"
Next
For i As Integer = 1 To 10000
If sxd > "" AndAlso sxd.Contains("SD_" & Format(i,"0000")) Then
Else
dr("系统编号") = "SD_" & Format(i,"0000")
e.Form.Controls("系统编号").text  = "SD_" & Format(i,"0000")
Exit For
End If
Next

dr("域名") = e.Form.Controls("TextBox3").text
dr("地址") = e.Form.Controls("TextBox4").text

DataTables("S_系统_店舗情報").Save()
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/23 8:49:00 [只看该作者]

你新增行的瞬间,就触发新增行事件了. 触发完了.再继续执行下面的代码的.

你把你的代码从新增行中移出来.放到这段代码的后面吧
 回到顶部
美女呀，离线，留言给我吧！
qianqian1530
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00 		  发帖心情 Post By：2015/4/23 8:52:00 [只看该作者]

嗯

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询