Foxtable(狐表)用户栏目专家坐堂 → [讨论]动态加载临时列的代码优化


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

主题:[讨论]动态加载临时列的代码优化

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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2013/9/26 7:46:00 [显示全部帖子]

以下是引用kensou11111在2013-9-25 21:16:00的发言:
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130925211240333.png
图片点击可在新窗口打开查看

你还可以换种思路,

 

第一种:增加一列函数名,启动相应模块时一次性编译加载,避免每次的重复编译。

 

第二种:将你的取数表达式列分为三列:条件字段(产品编号)、取数表(窗口1_table1)、取数字段(产品编号)

     这样就可以传参调用固定函数。


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


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2013/9/27 12:21:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:未命名.bmp
图片点击可在新窗口打开查看

 

第一种,你就增函数名列,在需要的时候用循环,一次性全部生成,后面就按函数名调用,修改的时候重新编译。

 

第二种方法你增加后面三列,用命令检验以下代码,可行就自行改写成函数调用。

 

    Dim r = Tables("取数函数表").Current
        Dim ld As String
        Dim sql As String = "Select  " & r("增加列名称") & "  From {"  & r("表名")  & "} "
        sql +=  " Where "  &  r("条件字段") &  " ='"  & Tables(r("取数表")).Current(r("取数字段")) & "'"
        Dim cmd As New SQLCommand 
        cmd.CommandText = sql
        ld = cmd.ExecuteScalar()
Output.SHOW(LD)


 回到顶部