Foxtable(狐表) → 用户栏目 → 专家坐堂 → 增加成本金额临时列的


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

主题：增加成本金额临时列的
美女呀，离线，留言给我吧！
lfz123
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：530 积分：4607 威望：0 精华：0 注册：2018/3/24 18:04:00 		增加成本金额临时列的  发帖心情 Post By：2020/3/2 14:38:00 [只看该作者]

在窗口表里面增加成本金额临时列,提示成本金额列已经存在,为了排除此错误我这样写代码,于是未能成功增加此列
  If datatables("窗口表1_table1").DataCols.Contains("成本金额") = False Then 如果去掉这个判断是正常可以添加的
        .DataCols.Add("成本金额", Gettype(Double))
  end if
[此贴子已经被作者于2020/3/2 14:39:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/2 14:59:00 [只看该作者]

给出完整代码

 回到顶部
美女呀，离线，留言给我吧！
lfz123
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：530 积分：4607 威望：0 精华：0 注册：2018/3/24 18:04:00 		回复：（有点蓝）给出完整代码  发帖心情 Post By：2020/3/2 15:32:00 [只看该作者]

Dim t As Table = Tables("承包管理模块_tb项目列表")
With t.DataTable
    '增加临时列
    If .DataCols.Contains("成本金额") = False Then
        .DataCols.Add("成本金额", Gettype(Double))
    ElseIf .DataCols.Contains("甲方收款") = False Then
        .DataCols.Add("甲方收款", Gettype(Double))
    ElseIf .DataCols.Contains("东渡收款") = False Then
        .DataCols.Add("东渡收款", Gettype(Double))
    End If
    
    
    For Each dr As DataRow In .DataRows
        dr("成本金额") = DataTables("入库单").SQLCompute("sum([含税金额])","工程编码 = '" & dr("工程编码") & "'")
        dr("甲方收款") = DataTables("承包方fa piao").SQLCompute("sum([fa piao金额])","工程编码 = '" & dr("工程编码") & "'")
        dr("东渡收款") = DataTables("流水账").SQLCompute("sum([收入])","工程编码 = '" & dr("工程编码") & "'")
    Next

End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/2 15:55:00 [只看该作者]

'增加临时列
If .DataCols.Contains("成本金额") = False Then
    .DataCols.Add("成本金额", Gettype(Double))
End If
If .DataCols.Contains("甲方收款") = False Then
    .DataCols.Add("甲方收款", Gettype(Double))
End If
If .DataCols.Contains("东渡收款") = False Then
    .DataCols.Add("东渡收款", Gettype(Double))
End If

再好好学学基础：http://www.foxtable.com/webhelp/topics/0223.htm，注意elseif的用法
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询