这么自动充填字符的表达式，如何写，烦请狐哥帮手 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这么自动充填字符的表达式，如何写，烦请狐哥帮手

共有13491人关注过本帖树形打印复制链接主题：这么自动充填字符的表达式，如何写，烦请狐哥帮手

fagg

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：483 威望：0 精华：0 注册：2011/5/14 15:20:00

这么自动充填字符的表达式，如何写，烦请狐哥帮手 发帖心情

Post By：2011/10/7 18:10:00 [只看该作者]

具体要求如图中的说明。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:表达式之四.table

don

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2011/10/7 19:25:00 [只看该作者]

Select e.DataCol.name

Case "累计核销费用","待报费用"

If e.DataRow.IsNull("待报费用") Then

e.DataRow("项目状态") = "等待资料中"

ElseIf e.DataRow("待报费用") = 0 Then

e.DataRow("项目状态") = "核销完成"

Else

e.DataRow("项目状态") = "正在核销中"

End If

End Select

If e.DataCol.Name = "项目状态" Then

If e.DataRow("项目状态") = "核销完成" Then

e.DataRow.Locked = True

Dim n As Integer = Tables("表A").Findrow(e.DataRow)+1

Tables("表A").SetHeaderCellBackColor("项目状态",Color.Red,n)

End If

fagg

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：53 积分：483 威望：0 精华：0 注册：2011/5/14 15:20:00

Post By：2011/10/8 8:43:00 [只看该作者]

谢谢，

但好像不行，

因为”“累计核销费用”和“待报费用”是通过表达式自动计算出来的数据，对“项目状态”更新没有用呢？烦请师兄帮手解决一下，

再次感谢。

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/8 9:03:00 [只看该作者]

Select e.DataCol.name
    Case "核销费用01","核销费用02","申请费用","累计核销费用"
        If e.DataRow.IsNull("待报费用") Then
            e.DataRow("项目状态") = "等待资料中"
        ElseIf e.DataRow("待报费用") = 0 Then
            e.DataRow("项目状态") = "核销完成"
        Else
            e.DataRow("项目状态") = "正在核销中"
        End If
End Select

If e.DataCol.Name = "项目状态" Then
    If e.DataRow("项目状态") = "核销完成" Then
        e.DataRow.Locked = True
        Dim n As Integer = Tables("表A").Findrow(e.DataRow)+1
        Tables("表A").SetHeaderCellBackColor("项目状态",Color.Red,n)
    End If
End If