以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 临时表,运行时报错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132368) |
||||
-- 作者:fytea -- 发布时间:2019/3/20 17:40:00 -- 临时表,运行时报错 制作临时表,运行时报错 从字符串“”到类型“Double”的转换无效。 老师帮我看看这段码的问题 For Each dc As Col In t1.Cols |
||||
-- 作者:有点甜 -- 发布时间:2019/3/20 17:56:00 -- For Each dc As Col In t1.Cols For Each dr As Row In t1.Rows flt = "类号 = \'" & dr("类号") & "\' and 材料名称 = \'" & dr("材料名称") & "\' and 出生日期 = \'" & dr("出生日期") & "\'" If dic.containskey(dr("审核内容")) Then Select Case dc.name Case "材料最早形成时间" exp = "Min(" & dic(dr("审核内容")) & ")" dr(dc.name) =dt.Compute(exp,flt) Case "材料最新形成时间" exp = "Max(" & dic(dr("审核内容")) & ")" dr(dc.name) =dt.Compute(exp,flt) End Select End If Next Next |
||||
-- 作者:fytea -- 发布时间:2019/3/20 18:00:00 -- 还是老样子,甜老师
|
||||
-- 作者:有点甜 -- 发布时间:2019/3/20 18:03:00 -- 不是这段代码有问题
http://www.foxtable.com/webhelp/scr/1485.htm
|
||||
-- 作者:fytea -- 发布时间:2019/3/20 18:11:00 -- 项目发给你看看,按钮在窗口里
|
||||
-- 作者:有点甜 -- 发布时间:2019/3/20 22:24:00 -- Dim dtb As New DataTableBuilder("三龄审核表") dtb.Build()
|
||||
-- 作者:fytea -- 发布时间:2019/3/21 1:12:00 --
【三龄审核表】中的数据怎么提取?按钮在窗口
[此贴子已经被作者于2019/3/21 1:15:21编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2019/3/21 9:03:00 -- 列名不对,【三龄审核表】没有出生日期、类号、材料名称这些列。 【三龄审核表】只是显示一个人的记录,如果是多个人还需要一个姓名 最终需要怎么样的一个表格?先规划好
|
||||
-- 作者:fytea -- 发布时间:2019/3/21 11:05:00 -- 蓝老师: 【三龄审核表】只显示一个人的记录。其目的,是审核员工工作多年填写的各种表格记载的 出身日期,参加工作时间 和入党时间是否一致 审核的方法,就是从员工最早形成的的材料中找出记载的三种日期,然后比较最早的记载和最晚的记载是否一致
【三龄审核表】中的 "材料最早记载_日期", "材料最早记载_类号", "材料最早记载_材料名称", "材料最早记载_形成时间"数据, 来自【档案文件目录】 “形成时间”字段中的的最早时间 行对应的出生日期、类号、材料名称 【三龄审核表】中的 "材料最新记载_日期", "材料最新记载_类号", "材料最新记载_材料名称", 来自【档案文件目录】 “形成时间”字段中的的最新(晚)时间 行对应的出生日期、类号、材料名称
您看看,这个表规划的有没有问题? 如何从【档案文件目录】表中找出需要的数据?
|
||||
-- 作者:有点蓝 -- 发布时间:2019/3/21 11:37:00 -- 规划有没有问题,您自己的业务,您自己才知道了。 Dim dtb As New DataTableBuilder("三龄审核表") dtb.AddDef("审核内容", Gettype(String), 10) dtb.AddDef("材料最早记载_日期", Gettype(String)) dtb.AddDef("材料最早记载_类号", Gettype(String)) dtb.AddDef("材料最早记载_材料名称", Gettype(String)) dtb.AddDef("材料最早记载_形成时间", Gettype(String)) dtb.AddDef("材料最新记载_日期", Gettype(String)) dtb.AddDef("材料最新记载_类号", Gettype(String)) dtb.AddDef("材料最新记载_材料名称", Gettype(String)) dtb.AddDef("材料最新记载_形成时间", Gettype(String)) dtb.AddDef("日期是否涂改_是", Gettype(Boolean)) dtb.AddDef("日期是否涂改_否", Gettype(Boolean)) dtb.AddDef("两次记载是否一致_是", Gettype(Boolean)) dtb.AddDef("两次记载是否一致_否", Gettype(Boolean)) dtb.Build() Dim exp,flt As String Dim dt As DataTable =DataTables("档案文件目录") Dim t As Table = Tables("档案文件目录") Dim t1 As Table =Tables("三龄审核表") For Each r As Row In Tables("审核内容").Rows Dim s As String = r("审核内容").Substring(2) Dim drs As List(Of DataRow) = dt.Select(s & " is not null",s) If drs.Count > 0 Then Dim dr As DataRow = drs(0) Dim nr As Row = t1.AddNew() nr("审核内容") = r("审核内容") nr("材料最早记载_日期") = dr(s) Dim dr2 As DataRow = drs(drs.Count - 1) nr("材料最新记载_日期") = dr2(s) End If Next MainTable = t1 |