以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/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
for each s as string in e.newvalue.split(",")
sum = sum + e.DataRow("房建结算_" & s)
next
        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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.zip