- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185071)
-- 发布时间：2023/2/2 16:36:00
-- [求助]
老师好！下面这段表达式执行不了，不知错在哪里，谢谢！
If \'方案\' In [雷鸣_专业] Then
Dim A As Double A=[房建结算_方案]
Elseif \'建筑\' In [雷鸣_专业] Dim B As Double B=[房建结算_建筑] Then
End If
Dim C As Double
C=A+B
Output Show C
-- 发布时间：2023/2/2 16:41:00
--
即想在下表中实现结算列对房建结算列的判断求和
-- 发布时间：2023/2/2 16:42:00
--
-- 发布时间：2023/2/2 16:56:00
--
您这种代码只能算是伪代码，大部分都没有符合Foxtable所使用的vb语言的语法规则。开发指南里编程基础这章内容要多看看。
麻烦把项目文件发上来，然后说明具体要做什么功能
-- 发布时间：2023/2/2 17:58:00
--
想做个项目结算表:
如果【雷鸣_结算】中有“方案”、“建筑”，则
[雷鸣_结算]=[房建结算_方案]+[房建结算_方案]
-- 发布时间：2023/2/2 20:08:00
--
到datacolchanged事件写代码：http://www.foxtable.com/webhelp/topics/0625.htm，注意看帮助这个事件是怎么用的
If e.DataCol.Name = "雷鸣_专业" Then
If e.DataRow.IsNull("雷鸣_专业") Then
e.DataRow("雷鸣_结算") = Nothing \'如果为空,则清除出生日期
Else
dim sum as double
If e.DataRow.IsNull("雷鸣_专业") Then
e.DataRow("雷鸣_结算") = Nothing \'如果为空,则清除出生日期
Else
dim sum as double
for each s as string in e.newvalue.split(",")
sum = sum + e.DataRow("房建结算_" & s)
next
e.DataRow("雷鸣_结算") = sum
End If
End If
e.DataRow("雷鸣_结算") = sum
End If
End If
如果看不懂上面的代码，建议先花一周时间专门学习下基础：http://www.foxtable.com/webhelp/topics/1592.htm
-- 发布时间：2023/2/5 18:10:00
--
谢谢老师！
-- 发布时间：2023/2/7 18:27:00
--
上面代码拷进去后执行不了，请老师修改一下，表格等着用，事后再补充学习，谢谢老师！
-- 发布时间：2023/2/7 18:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2023/2/7 20:20:00
--
先学好基础吧：http://www.foxtable.com/webhelp/topics/1592.htm
