专家坐堂-当前行某区域最大值Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当前行某区域最大值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44207)

--  作者：KID007
--  发布时间：2013/12/25 13:44:00
--  当前行某区域最大值

例如：表A 的第一列是 “日期”



                  第二列是 “第一车间” （列内的数据内容是生产量）

                  第三列是 “第二车间”   ...

                  第四列是 “第三车间”   ...

                  第五列是 “第四车间”   ...

                  第六列是 “第五车间”   ...

                  第七列是 “第六车间”   ...

                  第八列是 “第七车间”   ...

                  第九列是 “第八车间”   ...

                  第十列是 “第九车间”   ...

                  第十一列是 “第十车间”   ...

      第十二列是 “最大单间生产量”   （问题在这，如何实现这个列的内容自动筛选出十个车间中当天最大的那个数字？）

      也许问题很简单，但是本人真的很笨，希望有人可以抬手一救。万分感激。

[此贴子已经被作者于2013-12-25 13:52:54编辑过]

--  作者：Bin
--  发布时间：2013/12/25 14:05:00
--

Dim max As Integer
For Each c As Col In Tables("表A").Cols
If IsNumeric(Tables("表A").Current(c.name)) Then
If Tables("表A").Current(c.name)>max Then
max = Tables("表A").Current(c.name)
End If
End If
Next
MessageBox.show(max)

--  作者：KID007
--  发布时间：2013/12/25 14:46:00
--

以下是引用Bin在2013-12-25 14:05:00的发言：

Dim max As Integer

For Each c As Col In Tables("表A").Cols

If IsNumeric(Tables("表A").Current(c.name)) Then

If Tables("表A").Current(c.name)>max Then

max = Tables("表A").Current(c.name)

End If

End If

Next

MessageBox.show(max)

是这样这个表内还有别的列列如第几几车间工作人数啊！单人产量啊，等等，所以这段码好像不太合适，我的意思是，您能只提取就车间这十列的最大值吗？在“最大单间生产量”列里显示。麻烦点也可以，能达到效果就好，很麻烦您啊，谢谢了！！！

--  作者：Bin
--  发布时间：2013/12/25 14:48:00
--
定义一个列名数组,然后循环数组即可.

dim cs() as string = {"第一列","第二列","第三列"}

Dim max As Integer
For Each c As String In cs
If Tables("表A").Current(c)>max Then
max = Tables("表A").Current(c)
End If
Next
MessageBox.show(max)

新手建议先按部就班看帮助.

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

--  作者：KID007
--  发布时间：2013/12/25 15:09:00
--

感谢 BIN 哥教导。

本人的确很新的新手，学习中......帮助一直在看，最顶的视频教程贴也在看。亲手操作教程和帮助也在学习。

现在做的这个只是想利用狐表做个简单的表，小小的应付一下工作需要。。

感谢回帖！万分感激！