哪位大虾给写几行代码

dearbear

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

tz-chf

.test去掉。另外难道2007的text改成test了？

havegodinmou

小女完全外行，一点都看不懂。













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

todaynew

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

无需那么复杂。

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

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

dearbear

回复 pq318 的帖子

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

dearbear

回复 sxgaobo 的帖子

是一个access2007 版本的

dearbear

回复 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
但是我运行的时候 错误提示为 除非控件获得焦点，否则您不能引用该控件的属性和方法。

sxgaobo

你上传的是什么文件啊？打不开，其实就是：（（（（管径+壁厚）/2的平方*3.1415926）-管径/2的平方*3.1415926）*高度）*比重

pq318

呵呵，大哥算法是秘密啊，你的这个很简单的啊，写个这种代码简直就跟吃饭一样容易，网上多的是，搜搜就有的

ynjxw

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