专家坐堂-[求助]谁帮帮我修改下工作流代码？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]谁帮帮我修改下工作流代码？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58966)

--  作者：sxy_123456
--  发布时间：2014/10/27 14:42:00
--  [求助]谁帮帮我修改下工作流代码？

我设计了个上报按钮，想点击后自动上报后，而且不显示上报后的数据，如何修改代码？上报后的进度是“复核开始”

If Functions.Execute("ShouQuan","人工费预算","录入") Then
With Tables("人工费预算表")
With Tables("人工费预算表")
For i As Integer = .TopPosition To .BottomPosition
.Rows(i)("进度") = "复核开始"
Next
End With
End With

Else
MessageBox.show("你无上报数据权限!")
End If

Dim Filter As String
Dim bj As String
Select Case _UserGroup
Case "工程部"
Filter = "进度 = \'编辑开始\' Or 进度 = \'编辑结束\'" \'进度一开始
Case "预决算部"
Filter = "进度 = \'复核开始\' Or 进度 = \'复核结束\'" \'进度一结束或进度二开始
bj = "复核开始"
Case "总经理室"
Filter = "进度 = \'审批开始\' Or 进度 = \'审批结束\'" \'进度二结束或进度三开始
bj = "审批开始"
Case Else
Filter = "" \'其他用户加载全部记录
End Select
DataTables("人工费预算表").LoadFilter = Filter

--  作者：有点甜
--  发布时间：2014/10/27 14:44:00
--

你现在的问题是什么？

最后那里是不是要load？

DataTables("人工费预算表").LoadFilter = Filter

DataTables("人工费预算表").Load

--  作者：sxy_123456
--  发布时间：2014/10/27 14:49:00
--
现在的问题是我加了DataTables("人工费预算表").LoadFilter = Filter
DataTables("人工费预算表").Load 就所有数据都不显示了
就想只不显示进度为复核开始的数据，其他的数据还显示

[此贴子已经被作者于2014-10-27 14:49:16编辑过]

--  作者：有点甜
--  发布时间：2014/10/27 14:51:00
--
If Functions.Execute("ShouQuan","人工费预算","录入") Then
    With Tables("人工费预算表")
        With Tables("人工费预算表")
            For i As Integer = .TopPosition To .BottomPosition
                .Rows(i)("进度") = "复核开始"
            Next
        End With
    End With
    DataTables("人工费预算表").Save
    DataTables("人工费预算表").LoadFilter = "进度 <> \'复核开始\'"
    DataTables("人工费预算表").Load
Else
    MessageBox.show("你无上报数据权限!")
End If
[此贴子已经被作者于2014-10-27 14:51:20编辑过]

--  作者：sxy_123456
--  发布时间：2014/10/27 14:54:00
--
谢谢，已解决

--  作者：sxy_123456
--  发布时间：2014/10/27 15:46:00
--
继续上面的问题，如果我要再加个条件，复核列不空不能上报如何改代码？

If Functions.Execute("ShouQuan","人工费预算","录入") Then
    With Tables("人工费预算表")
        With Tables("人工费预算表")
            For i As Integer = .TopPosition To .BottomPosition
                .Rows(i)("进度") = "复核开始"
            Next
        End With
    End With
    DataTables("人工费预算表").Save
    DataTables("人工费预算表").LoadFilter = "进度 <> \'复核开始\'"
    DataTables("人工费预算表").Load
Else
    MessageBox.show("你无上报数据权限!")
End If

--  作者：有点甜
--  发布时间：2014/10/27 15:49:00
--
If Functions.Execute("ShouQuan","人工费预算","录入") Then
    With Tables("人工费预算表")
        With Tables("人工费预算表")
            For i As Integer = .TopPosition To .BottomPosition
                If .Rows(i).Isnull("复核") Then
                    .Rows(i)("进度") = "复核开始"
                End If
            Next
        End With
    End With
    DataTables("人工费预算表").Save
    DataTables("人工费预算表").LoadFilter = "进度 <> \'复核开始\'"
    DataTables("人工费预算表").Load
Else
    MessageBox.show("你无上报数据权限!")
End If