请狐狸老师帮我看看,那里出错？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请狐狸老师帮我看看,那里出错？

共有8690人关注过本帖树形打印复制链接主题：请狐狸老师帮我看看,那里出错？

sunbrain

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2439 威望：0 精华：0 注册：2011/12/3 22:19:00

Post By：2012/6/13 9:39:00 [只看该作者]

表达式中参与计算的不能有or

这些代码只能写在表达式中，帮你改了下，

在datachanged中添加以下代码

Select Case e.DataCol.Name

Case "再墩粗_长" ,"再墩粗_宽"

Dim l As Double

Dim w As Double

l = e.DataRow("再墩粗_长")

w = e.DataRow("再墩粗_宽")

e.DataRow("再墩粗_面积") = l * w

Case "再墩粗_直径"

Dim d As Double

d = e.DataRow("再墩粗_直径")

e.DataRow("再墩粗_面积") = d / 2 * d / 2 * 3.14

End Select

然后把几个关联的表达式都删除

下载信息 [文件大小：下载次数： ]
点击浏览该文件:计算 (1).table

[此贴子已经被作者于2012-6-13 9:41:13编辑过]

wjyuan

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：178 积分：1265 威望：0 精华：0 注册：2012/4/3 15:29:00

Post By：2012/6/13 11:11:00 [只看该作者]

请教老师好！

在圆材锻圆形锻件的计算表中，成型前_锻造比=[成型前_面积]/[再拔长_面积]，成型前_面积=[材料_体积] / [成型前_高度]，成型前_高度=手工输入，要自动得到成型前_直径，应该怎么写？谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:计算表.table

[此贴子已经被作者于2012-6-13 11:50:41编辑过]

wjyuan

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：178 积分：1265 威望：0 精华：0 注册：2012/4/3 15:29:00

Post By：2012/6/13 12:08:00 [只看该作者]

现在4个计算表全部完成，其中二个成型前是圆的表不会算直径，请指点！

[此贴子已经被作者于2012-6-13 13:10:51编辑过]

wjyuan

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：178 积分：1265 威望：0 精华：0 注册：2012/4/3 15:29:00

Post By：2012/6/13 13:11:00 [只看该作者]

我把其中的字段一个一个换过来，终于找到一个正确的！
Select Case e.DataCol.name
    Case "成型前_高度"
        If e.DataRow.IsNull("成型前_面积") = False Then
            Dim d As Double = e.DataRow("成型前_面积") / 3.14
            e.DataRow("成型前_直径") = Math.Sqrt(d) * 2
        Else
            e.DataRow("成型前_直径") = Nothing
        End If
End Select

程序中

Case "成型前_高度"

是不是指这个字段是手工输入后的字段？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:计算表1.table

[此贴子已经被作者于2012-6-13 13:11:06编辑过]

下一主题 >> << 上一主题

总数 14 上一页 1 2

主题：请狐狸老师帮我看看,那里出错？