主题：数据表更新

If User.IsRole("录入人") Then

    For Each r As Row In Tables("ZJJHB").GetCheckedRows       

       If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then

           MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")

        Else

            r("SBR") = User.Name

            r.Save()        

        End If      

    Next

 

    For Each r As Row In Tables("ZJSQB").GetCheckedRows       

       If r.IsNull("KSMC") OrElse  r.IsNull("实际申请金额") Then

           MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")

        Else

            r("SJSB") = User.Name

            r.Save()        

        End If      

    Next

Else

    MessageBox.show("你没有权限!")

End If