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


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

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

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/23 1:46:00 [显示全部帖子]

没理解你意思。

 

如果想 【按查询条件加载方法显示员工明细工资】,直接绑定主表,然后设置Filter不是就能查询了么?


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/23 9:23:00 [显示全部帖子]

 1、直接对绑定的表进行筛选就行啊。

 

e.Form.Controls("Table1").Table.Filter = "筛选条件"

 

 2、参考 http://www.foxtable.com/help/topics/0681.htm

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 0:05:00 [显示全部帖子]

你没有给数据设置 产品名称 啊,自然不计算啊。

 

要不你就在计算条件那里去掉产品名称的区分。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 11:11:00 [显示全部帖子]

以下是引用意悠心轻在2016/5/30 11:10:00的发言:

产品名称作为分组条件不能去除的,能否加个条件或产品名称为空值。

 

空值的算一种产品这样计算?


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 11:16:00 [显示全部帖子]

你可以把控制的替换成某个字符后计算,如

 

DataTables("").ReplaceFor("产品名称", "特殊产品", "产品名称 Is Null")


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 12:35:00 [显示全部帖子]

看181楼,把空值替换成一个特殊的产品名称

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 14:20:00 [显示全部帖子]

参考代码

 

Dim t As Table = Tables("表A")
For i As Integer = 1 To t.rows.count-1
    If t.rows(i).isnull("第一列") Then
        t.rows(i)("第一列") =t.rows(i-1)("第一列")
    End If
Next


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/30 14:44:00 [显示全部帖子]

红色代码不用写的啊。只需要把这段代码写在最开头

 

Dim t As Table = Tables("冲压车间工资表")
For i As Integer = 1 To t.rows.count-1
    If t.rows(i).isnull("产品名称") Then
        t.rows(i)("产品名称") =t.rows(i-1)("产品名称")
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  79楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  80楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
总数 81 上一页 1 2 3 4 5 6 7 8 9 下一页