Office中国论坛/Access中国论坛

标题: 哪位大虾给写几行代码 [打印本页]

作者: dearbear 时间: 2011-5-23 10:17
标题: 哪位大虾给写几行代码
本帖最后由 dearbear 于 2011-5-23 10:21 编辑

小弟想编一个小程序
能实现在选择管径和壁厚以后输入长度能计算钢管重量的功能
哪位大哥能帮个忙。

作者: ynjxw 时间: 2011-5-23 10:31
本帖最后由 ynjxw 于 2011-5-23 10:31 编辑

非专业人员，不懂计算公式。

作者: pq318 时间: 2011-5-23 10:36
呵呵，大哥算法是秘密啊，你的这个很简单的啊，写个这种代码简直就跟吃饭一样容易，网上多的是，搜搜就有的

作者: sxgaobo 时间: 2011-5-23 10:37
你上传的是什么文件啊？打不开，其实就是：（（（（管径+壁厚）/2的平方*3.1415926）-管径/2的平方*3.1415926）*高度）*比重

作者: dearbear 时间: 2011-5-23 13:34
回复 ynjxw 的帖子

我的想法就是当复选框选择1/2“时，规格为SCH5S时重量=0.82*长度那个文本框中的值
类似这样的Case "SCH10S"
         Set j = 1.01 * l
         zh_txt.test = j
      Case "SCH10"
         MsgBox "此种规格管材不存在！"
      Case "SCH20"
         MsgBox "此种规格管材不存在！"
      Case "SCH30"
         MsgBox "此种规格管材不存在！"
      Case "SCH40S"
         Set j = 1.3 * l
         zh_txt.test = j
      Case "STD"
         Set j = 1.27 * l
         zh_txt.test = j
      Case "SCH40"
         Set j = 1.27 * l
         zh_txt.test = j
      Case "SCH60"
         MsgBox "此种规格管材不存在！"
      Case "SCH80S"
         Set j = 1.65 * l
         zh_txt.test = j
      Case "XS"
         Set j = 1.62 * l
         zh_txt.test = j
      Case "SCH80"
         Set j = 1.62 * l
         zh_txt.test = j
      Case "SCH100"
         MsgBox "此种规格管材不存在！"
      Case "SCH120"
         MsgBox "此种规格管材不存在！"
      Case "SCH140"
         MsgBox "此种规格管材不存在！"
      Case "SCH160"
         Set j = 1.95 * l
         zh_txt.test = j
      Case "XXS"
         Set j = 2.55 * l
         zh_txt.test = j
      End Select
但是我运行的时候错误提示为除非控件获得焦点，否则您不能引用该控件的属性和方法。

作者: dearbear 时间: 2011-5-23 13:35
回复 sxgaobo 的帖子

是一个access2007 版本的

作者: dearbear 时间: 2011-5-23 13:36
回复 pq318 的帖子

大哥小弟是个菜鸟，给偶抬抬笔整一下呗

作者: todaynew 时间: 2011-5-23 16:15
本帖最后由 todaynew 于 2011-5-23 16:15 编辑

dearbear 发表于 2011-5-23 10:17
小弟想编一个小程序
能实现在选择管径和壁厚以后输入长度能计算钢管重量的功能
哪位大哥能帮个忙。

无需那么复杂。

假设同一规格下只有唯一的管径（即规格包含管径的定义），则在重量控件的控件来源中写：
=dlookup("单重","tbname","规格='" & [规格] & "'")*[长度]

假设同一个规格下有多种管径，在单重表中需要增加管径字段，则在重量控件的控件来源中写:
=dlookup("单重","tbname","规格='" & [规格] & "' and 管径='" & [管径] & "'")*[长度]

作者: havegodinmou 时间: 2011-5-29 21:36
小女完全外行，一点都看不懂。

--------------------------------------------------------------
God made relatives; Thank God we can choose our friends.
nike lunarglide+2,nike free 7.0,nike free 3.0

作者: tz-chf 时间: 2011-5-30 09:00
.test去掉。另外难道2007的text改成test了？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)