审批代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If _UserName = e.form.controls("采购申请明细").Table.Current("采购人员") Then
    For i As Integer = 0 To e.form.controls("采购申请明细").Table.rows.count-1
        'e.form.controls("采购申请明细").Table.position = i
        Dim r As Row = e.form.controls("采购申请明细").Table.rows(i)
        If r.checked = True Then
            r("转采购单") = _UserName
            r("转单日期") = Date.Today()
        End If
    Next
Else
    MessageBox.show("你无审批权限!")
End If

主题：审批代码