Foxtable(狐表)用户栏目专家坐堂 → 请教如何设计这个表达式


  共有18868人关注过本帖树形打印复制链接

主题:请教如何设计这个表达式

帅哥哟,离线,有人找我吗?
大红袍
  191楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 16:54:00 [只看该作者]

那这样写

 

Dim drs As List(Of DataRow) = DataTables("冲压车间工资表").Select("生产形式<>'个人' and 日期 is not null", "_Sortkey")
For i As Integer = 1 To drs.count-1
    If drs(i).isnull("产品名称") Then
        drs(i)("产品名称") = drs(i-1)("产品名称")
    End If
Next


 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  192楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:3358 威望:0 精华:0 注册:2016/1/31 16:04:00
  发帖心情 Post By:2016/5/30 17:38:00 [只看该作者]

以下是引用大红袍在2016/5/30 16:54:00的发言:

那这样写

 

Dim drs As List(Of DataRow) = DataTables("冲压车间工资表").Select("生产形式<>'个人' and 日期 is not null", "_Sortkey")
For i As Integer = 1 To drs.count-1
    If drs(i).isnull("产品名称") Then
        drs(i)("产品名称") = drs(i-1)("产品名称")
    End If
Next

不能这样写,计算出来分组分配结果全乱套了,很多集体的显示重复,不显示分配金额。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  193楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 17:44:00 [只看该作者]

Dim t As Table = Tables("冲压车间工资表")
For i As Integer = 1 To t.rows.count-1
    If t.rows(i).isnull("产品名称") andalso t.rows(i).IsNull("日期") = false Andalso t.rows(i)("生产形式") <> "个人" Then
        t.rows(i)("产品名称") =t.rows(i-1)("产品名称")
    End If
Next

 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  194楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:3358 威望:0 精华:0 注册:2016/1/31 16:04:00
  发帖心情 Post By:2016/5/30 20:19:00 [只看该作者]

以下是引用大红袍在2016/5/30 17:44:00的发言:
Dim t As Table = Tables("冲压车间工资表")
For i As Integer = 1 To t.rows.count-1
    If t.rows(i).isnull("产品名称") andalso t.rows(i).IsNull("日期") = false Andalso t.rows(i)("生产形式") <> "个人" Then
        t.rows(i)("产品名称") =t.rows(i-1)("产品名称")
    End If
Next

     谢谢,非常好,条件语句还能这样写,领教了。


 回到顶部
美女呀,离线,留言给我吧!
意悠心轻
  195楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:3358 威望:0 精华:0 注册:2016/1/31 16:04:00
  发帖心情 Post By:2017/2/28 10:58:00 [只看该作者]

  前几天发现你帮我编的程序出现问题,我修改了一下,今天再补充一个条件,报错了,不好意思还得请教你,也是这贴接着的同一问题,同一天、同一集体生产形式,由于单价未定,车间主管把产品暂记备注列,执行计算程序时,产品名称列自动把上一行的产品名称填充到下一行了,产品名称列为空自动填充的条件是同一天、同一集体生产形式,且上一行同时不为个人,才执行自动填充。我已经修改了程序,应该格式错了,麻烦帮我看看,谢谢。

[此贴子已经被作者于2017/2/28 17:11:17编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  196楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/28 12:04:00 [只看该作者]

Dim t As Table = Tables("冲压车间工资表")
For i As Integer = 1 To t.rows.count-1
    Dim pr As Row = t.Rows(i-1)
    Dim cr As Row = t.Rows(i)
    If pr("生产形式") <> "个人" Then
        If pr("日期") = cr("日期") AndAlso pr("生产形式") = cr("生产形式") Then
            cr("产品名称") = pr("产品名称")
        End If
    End If
Next

 回到顶部
总数 196 1.. 上一页 11 12 13 14 15 16 17 18 19 20