Foxtable(狐表)用户栏目专家坐堂 → 表达式列能否批量修改数据?


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

主题:表达式列能否批量修改数据?

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


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

呃,只能一个一个的修改。如果有规律,建议在afterOpenProject事件用代码修改

 

http://www.foxtable.com/help/topics/0417.htm

 


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


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

1、http://www.foxtable.com/help/topics/0201.htm

 

2、上传具体例子。


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


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

请认认真真看完excel报表一章。

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:invoice.xls


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


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

图片列,不要用引用父表的方式做报表。

 

你直接在明细表加一列图片列,然后,把父表的数据引用过来,然后根据此列设计报表。

 

慢的问题,请做具体实例说明,不知道你写了什么代码影响了。


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


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

1、不是叫你拷贝过来啊,而是加入一个表达式列,引用图片表的图片列数据啊;

 

2、

 

If e.Table.Current IsNot Nothing Then
    Dim dx As Integer = Tables("图片").FindRow("[款号] = '" & e.Table.current("款号") & "'")
    If dx >= 0 Then     
        Tables("图片").Position = dx 
    End If
End If

 

MyTimers("计划1").Enabled = True


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


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


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


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

下面代码没有问题。不联动,说明找不到对应数据。

 

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回 '没有选定行时执行的代码
Else
    Dim dx As Integer = Tables("图片").FindRow("[款号] = '" & e.Table.current("款号") & "'")
   
    If dx >= 0 Then
       
        Tables("图片").Position = dx
       
    End If
   
    Dim wz As Integer
   
    wz = Tables("尺码表").FindRow("[PO] = '" & e.Table.Current("PO") & "'")
   
    If wz >= 0 Then
       
        Tables("尺码表").Position = wz
       
    End If  '有选定行时执行的代码
End If

 


 回到顶部