- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]新增行某一列赋值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71409)
-- 发布时间：2015/7/10 17:34:00
-- [求助]新增行某一列赋值
各位老师，我想对新增行的某一列进行自动赋值，比如10新增10行，我只想让10行的状态列的值是“有效”，我写了如下代码，结果是每次是对所有行的状态列都赋值成了“有效”
Dim ncb As Integer=Forms("绿桶数量").controls("ncb1").value
If ncb > 0 Then
Tables("绿桶").addnew(ncb)
For Each r As Row In Tables("绿桶").Rows
Dim dr As DataRow = DataTables("物料档案").find("名称=\'" & "绿桶" & "\'")
Dim d As String=dr("编号")
r("类别代码")=d
r("状态")="有效"
Next
forms("绿桶数量").close
Else
messagebox.show("请填写不少于0个!")
End If
-- 发布时间：2015/7/10 18:00:00
--
-- 发布时间：2015/7/10 18:03:00
--
Dim ncb As Integer=Forms("绿桶数量").controls("ncb1").value
If ncb > 0 Then
Tables("绿桶").Save
Tables("绿桶").addnew(ncb)
Dim dr As DataRow = DataTables("物料档案").find("名称=\'" & "绿桶" & "\'")
For Each r As Row In Tables("绿桶").Rows
If r.DataRow.RowState = DataRowState.Added Then
Dim d As String=dr("编号")
r("类别代码")=d
r("状态")="有效"
End If
Next
forms("绿桶数量").close
Else
messagebox.show("请填写不少于0个!")
End If
-- 发布时间：2015/7/10 18:16:00
--
老师，按照您的提示，系统报错，错误如截图
此主题相关图片如下：qq截图20150710181006.jpg
-- 发布时间：2015/7/10 18:17:00
--
报错，说明你这句代码的条件有问题
Dim dr As DataRow = DataTables("物料档案").find("名称=\'" & "绿桶" & "\'")
If dr IsNot Nothing Then
End If
-- 发布时间：2015/7/11 7:35:00
--
帮助反复提醒：
http://www.foxtable.com/help/topics/2044.htm