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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么求出数字几？

共有4252人关注过本帖树形打印复制链接主题：怎么求出数字几？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/3/12 11:47:00 [只看该作者]

看起来都可以,使用上如果没遇到特定情况,那么就都可以.

但是严谨一点,还是要使用狐爸的代码,可以应对所有情况不会出错. 要习惯判断所有情况,不能和我的代码一样偷懒.

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2015/3/12 11:50:00 [只看该作者]

哦，这样的吗，我就用FOX PA PA的吧

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2015/3/12 15:01:00 [只看该作者]

不同情况求出不同的值，太逻辑了，不知道用什么语句：

Select Case e.DataCol.name

Case "单价","保洁员"

If e.DataRow.IsNull("单价") OrElse e.DataRow.IsNull("保洁员") Then

e.DataRow("人均价") = Nothing

Else if e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="全室保洁" /一种情况

Dim nms As String = e.DataRow("保洁员")

e.DataRow("人均价") = e.DataRow("单价") *2 / nms.Split(",").length

Else if e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="日常保洁" /一种情况

Dim nms As String = e.DataRow("保洁员")

e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length

Else if e.DataRow("新老客户") = "新客户" OrElse e.DataRow("服务内容") ="全室保洁" AndAlso e.DataRow("开荒") /一种情况

Dim nms As String = e.DataRow("保洁员")

e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length

End If

End Select

是用这种语句吗？ TIANTIAN ........... **.

else if

end if

[此贴子已经被作者于2015/3/12 15:01:55编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/12 15:07:00 [只看该作者]

Select Case e.DataCol.name
    Case "单价","保洁员"
        If e.DataRow.IsNull("单价") OrElse e.DataRow.IsNull("保洁员") Then
            e.DataRow("人均价") = Nothing
        Else
            Dim nms As String = e.DataRow("保洁员")
            If e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="全室保洁"
                e.DataRow("人均价") = e.DataRow("单价") *2 / nms.Split(",").length
            Else If e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="日常保洁"
                e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length
            Else If e.DataRow("新老客户") = "新客户" OrElse e.DataRow("服务内容") ="全室保洁" AndAlso e.DataRow("开荒")
                e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length
            End If
        End If
End Select

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2015/3/12 15:16:00 [只看该作者]

tiantian 上面代码没实现，我上传了我的PROJECT，麻烦帮我看下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.rar

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/3/12 15:26:00 [只看该作者]

问题在何处?

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/12 15:29:00 [只看该作者]

呃，没有问题

Select Case e.DataCol.name
    Case "单价","保洁员","新老客户","服务内容","开荒"
        If e.DataRow.IsNull("单价") OrElse e.DataRow.IsNull("保洁员") OrElse e.DataRow.Isnull("服务内容") OrElse e.DataRow.Isnull("新老客户") Then
            e.DataRow("人均价") = Nothing
        Else
            Dim nms As String = e.DataRow("保洁员")
            If e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="全室保洁"
                e.DataRow("人均价") = e.DataRow("单价") *2 / nms.Split(",").length
            Else If e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="日常保洁"
                e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length
            Else If e.DataRow("新老客户") = "新客户" OrElse e.DataRow("服务内容") ="全室保洁" AndAlso e.DataRow("开荒") = True
                e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length
            End If
        End If
End Select

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/3/12 15:31:00 [只看该作者]

又或者你的意思是并列条件?

If e.DataRow("新老客户") = "老客户" AndAlso e.DataRow("服务内容") ="全室保洁"

把ORElse 改为ANdalso即可

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2015/3/12 15:37:00 [只看该作者]

以下是引用有点甜在2015/3/12 15:29:00的发言：

呃，没有问题

Select Case e.DataCol.name
    Case "单价","保洁员","新老客户","服务内容","开荒"
        If e.DataRow.IsNull("单价") OrElse e.DataRow.IsNull("保洁员") OrElse e.DataRow.Isnull("服务内容") OrElse e.DataRow.Isnull("新老客户") Then
            e.DataRow("人均价") = Nothing
        Else
            Dim nms As String = e.DataRow("保洁员")
            If e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="全室保洁"
                e.DataRow("人均价") = e.DataRow("单价") *2 / nms.Split(",").length
            Else If e.DataRow("新老客户") = "老客户" OrElse e.DataRow("服务内容") ="日常保洁"
                e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length /这两句没实现功能。没有实现单价/人数 = 人均价
            Else If e.DataRow("新老客户") = "新客户" OrElse e.DataRow("服务内容") ="全室保洁" AndAlso e.DataRow("开荒") = True
                e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length
            End If
        End If
End Select

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/12 15:38:00 [只看该作者]

           If e.DataRow("新老客户") = "老客户" AndAlso e.DataRow("服务内容") ="全室保洁"
                e.DataRow("人均价") = e.DataRow("单价") *2 / nms.Split(",").length
            Else If e.DataRow("新老客户") = "老客户" AndAlso e.DataRow("服务内容") ="日常保洁"
                e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length /这两句没实现功能。没有实现单价/人数 = 人均价
            Else If e.DataRow("新老客户") = "新客户" OrElse e.DataRow("服务内容") ="全室保洁" AndAlso e.DataRow("开荒") = True
                e.DataRow("人均价") = e.DataRow("单价") / nms.Split(",").length
            End If

下一主题 >> << 上一主题

总数 26 上一页 1 2 3 下一页

主题：怎么求出数字几？