[求助]新增行某一列赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师，我想对新增行的某一列进行自动赋值，比如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("状态")="有效"

forms("绿桶数量").close

Else

messagebox.show("请填写不少于0个!")

End If

主题：[求助]新增行某一列赋值