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
|