- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求填充公式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5582)
-- 发布时间：2009/12/21 11:26:00
-- 求填充公式
请见示范文件。
填充班组有的按钮已好了。
但是填充班组没有的按钮我搞了很久，没搞定，与以前搞的都有差别。请帮帮忙。谢谢
要求：
填充主管表姓名（条件：日期=窗口控件日期）没有而档案表有的姓名（条件：在职情况=在岗），并自动输入日期列=窗口控件日期，备注列=请假。
最好是两个按钮和二为一。（如班组无内容，最好能达到：自动输入备注列=公休）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目10.table |
[此贴子已经被作者于2009-12-21 11:30:34编辑过]
-- 发布时间：2009/12/21 11:40:00
--
这样是否可以？
dim f As New Filler
f.SourceTable = DataTables("档案") \'指定数据来源
f.SourceCols = "姓名" \'指定数据来源列
f.DataTable = DataTables("主管") \'指定数据接收表
f.ExcludeExistValue = true
f.DataCols = "姓名" \'指定数据接收列
f.filter = "[在职情况] = \'在岗\'"
f.Fill() \'填充=据
For Each dr As DataRow In DataTables("主管").DataRows
if dr.IsNull("日期") Then
dr("日期") = e.Form.Controls("日期").Value
dr("备注") = "请假"
End If
Next
-- 发布时间：2009/12/21 11:53:00
--
不行，日期改变时，不再填充，没有日期对比
-- 发布时间：2009/12/21 11:56:00
--
Dim d As Date = Forms("窗口1").Controls("日期").Value
For Each dr1 As DataRow In DataTables("档案").DataRows
Dim dr As DataRow = DataTables("主管").Find("姓名 = \'" & dr1("姓名") & "\' And 日期 = \'" & d & "\'")
if dr Is Nothing Then
Dim dr2 As DataRow = DataTables("主管").AddNew()
dr2("日期") = d
dr2("姓名") = dr1("姓名")
dr2("备注") = "请假"
End If
Next
-- 发布时间：2009/12/21 12:06:00
--
还是不对，没有排除在职情况
-- 发布时间：2009/12/21 12:08:00
--
你加个判断不就行了。
-- 发布时间：2009/12/21 12:17:00
--
还是帮你搞定吧。
Dim d As Date = Forms("窗口1").Controls("日期").Value
Dim drs As List(Of DataRow) = DataTables("档案").Select("[在职情况] = \'在岗\'")
For Each dr1 As Datarow In drs
Dim dr As DataRow = DataTables("主管").Find("姓名 = \'" & dr1("姓名") & "\' And 日期 = \'" & d & "\'")
if dr Is Nothing Then
Dim dr2 As DataRow = DataTables("主管").AddNew()
dr2("日期") = d
dr2("姓名") = dr1("姓名")
dr2("备注") = "请假"
End If
Next
-- 发布时间：2009/12/21 12:54:00
--
还是请C版帮帮忙吧，不是偷懒，确实搞不出来。谢谢
-- 发布时间：2009/12/21 13:22:00
--
7楼还不行？
-- 发布时间：2009/12/21 14:41:00
--
没看到7楼的，ok了，谢谢C版