Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共8 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:通用代码

1楼
1234567 发表于:2024/10/24 16:50:00

DataColChanged

Dim d As DataRow = e.DataRow
Select Case e.Col.name
    Case "工序", "工步"
    Case Else
        Dim dr As DataRow = DataTables("工时定额").Find("工序='" & e.Row("工序") & "' and 工步='" & e.Row("工步") & "' and 直径='" & e.Row("直径") & "'")
        d("单工步加工时间") = dr("单工步加工时间")
End Select

 

工时定额表制定定额标准,通过比较不同工序的指定列的对应数值,确定d("单工步加工时间") ,请问,如何把不同工序的指定列代入到Find条件中去,比如棒料的指定列是直径,板的指定列是长度和宽度


此主题相关图片如下:9.png
按此在新窗口浏览图片
2楼
有点蓝 发表于:2024/10/24 17:38:00
   Case Else
if d("工步") = “棒料
        Dim dr As DataRow = DataTables("工时定额").Find("工序='" & e.Row("工序") & "' and 工步='" & e.Row("工步") & "' and 直径='" & e.Row("直径") & "'")
        d("单工步加工时间") = dr("单工步加工时间")
elseif d("工步") = “
        Dim dr As DataRow = DataTables("工时定额").Find("工序='" & e.Row("工序") & "' and 工步='" & e.Row("工步") & "' and 长度='" & e.Row("长度") & "'")
        d("单工步加工时间") = dr("单工步加工时间")
end if
End Select
3楼
1234567 发表于:2024/10/25 8:40:00

如果工时定额表中直径列的数值是A~B这种形式,比如0~10,10~20。

如何根据当前行中的直径数值,在工时定额表中查找到符合条件的行?

4楼
有点蓝 发表于:2024/10/25 8:41:00
查不了。建议改为2个列,比如最小直径、最大直径
5楼
1234567 发表于:2024/10/25 9:38:00

.NET Framework 版本:4.0.30319.1
Foxtable 版本:2024.10.20.1
错误所在事件:表,工步,DataColChanged
详细错误信息:
Exception has been thrown by the target of an invocation.
Object reference not set to an instance of an object.

 

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "工序", "工步"
    Case Else
       If dr("工序") = "锯" AndAlso dr("工步") = "棒料" Then
        Dim dr1 As DataRow = DataTables("工时定额").Find("工序='" & e.DataRow("工序") & "' and 工步='" & e.DataRow("工步") & "' and 最小直径<='" & e.DataRow("直径") & "' and 最大直径>'" & e.DataRow("直径") & "'")
        dr("单工步加工时间") = dr1("单工步加工时间")
End If
End Select

 

如何加一个判断?

6楼
有点蓝 发表于:2024/10/25 9:55:00
还要加什么判断?
7楼
1234567 发表于:2024/10/25 10:01:00

当我输入的直径数据超过工时定额表的最大最小直径范围,就会出现报错

8楼
有点蓝 发表于:2024/10/25 10:03:00
http://www.foxtable.com/webhelp/topics/0396.htm,理解一下示例三
共8 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02930 s, 2 queries.