条件达成自动显示-已解決 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

条件:当在"进度"表里的项目状态是"完版",而"试版单"的日期在05-01 到05-31 之间

把"月汇总"表里的"工单号"列清空

然后把 "进度"表对应条件的"工单号"列的工单号

自动显示到"月汇总"表里的"工单号"列上

这个我完全沒有思路,各狐友能提供方法嗎?

此主题相关图片如下：未命名.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

[此贴子已经被作者于2013-5-25 18:41:47编辑过]

是以代码去实现,以窗体或MainTableChanged
这就较复杂

我先以sloyy 所说的思路去设设,再有疑问的话

就请教了,谢谢

因为这样需要手动

1 篩选进度表的相关条件

2 复制结果

3 汇总表的工单号列清空

4 贴上

想做到是一键出结果或者转換表时出结果

用窗体按键做

1 篩选进度表的相关条件

代码想好了

Dim dt1 = Tables("主页")(0,"月开始日")'

Dim dt2 = Tables("主页")(0,"月截止日")'

Dim t As Table = Tables("进度")

Dim t1 As Table = Tables("月汇总")

t.Select(0,0)

Tables("进度").Filter = ""

Tables("进度").Filter = "[项目状态] = '完版'and [试版单] >= #" & dt1 & "# and [试版单] <= #" & dt2 & "#"

Dim c As Col = t.Cols(t.ColSel)

MessageBox.Show("选定列的名称是:" & c.Name)

然后,整列复制的代码是啥呢? 图片点击可在新窗口打开查看

整表复制不好,因为工作表有锁定使用者权限

怎麼高手都沒有回复的?

沒法子

在三看帮助文件下

折騰出这样的代码

算是能做到目的

不过代码是否严紧和会否有ＢＵＧ就仍未测试出來

用字典做出來的

还好,在用EXCEL做系统时有做过类似的字典求工单号的

'汇总

Dim dic As new Dictionary(of String,String)

Dim dt1 = Tables("主页")(0,"月开始日")'

Dim dt2 = Tables("主页")(0,"月截止日")'

DataTables("月汇总").DataRows.Clear()'月汇总表完全清空

For Each dr2 As DataRow In DataTables("进度").Select("[项目状态] = '完版'and [试版单] >= #" & dt1 & "# and [试版单] <= #" & dt2 & "#")

Dim nm As String = dr2("工单号")

Dim vl As String = dr2("款类")

If dic.ContainsKey(nm) = False

dic.Add(nm,vl)

Else

dic(nm) = dic(nm)+ vl

End If

For Each key As String In dic.keys

Dim dr As DataRow = DataTables("月汇总").AddNew()'月汇总

dr("工单号") = key '模号

dr("款类") = dic(key)

[此贴子已经被作者于2013-5-23 1:57:48编辑过]

主题：条件达成自动显示-已解決