- 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=153381)
-- 发布时间：2020/8/9 21:33:00
-- 求填充数据按钮代码
上半部右表B,是父表，试验组编号为关联咧。点击“生成评价表\'按钮，生成下半部左表B评价表，其数据来自父表，和下半部右表C。评价表B,最早一次记载的时间,来自右半部表C“试验时间”最早的时间，即2017-11-05；最晚一次记载的时间，来自“试验时间”最晚的时间2020-05-04;中靶数和对应来自表C记录编号p-04和中靶数17，以及p-06、中靶数10；其余的记录编号和对应的时间，填入左表B“介于最早和最后的试验时间”列下的第一个单元格中，填入格式;记录编号，试验时间，中靶数；填充按钮怎么写
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2020/8/9 22:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目15.zip |
-- 发布时间：2020/8/10 11:50:00
--
蓝老师，用find
把最晚和最早的时间找到，其余的记录编号和对应的时间，怎么填入左表B“介于最早和最后的试验时间”列下的第一个单元格中？填入格式;记录编号，试验时间，中靶数
-- 发布时间：2020/8/10 11:53:00
--
遍历所有行处理，排除掉之前查找出来的最晚和最早的时间
-- 发布时间：2020/8/10 16:16:00
--
蓝老师，排除最早时间和最晚时间，遍历该怎么写？
For Each dr1 As DataRow In DataTables("表c").Select("[试验时间] > 试验时间" and "[试验时间] < 试验时间 desc")
-- 发布时间：2020/8/10 16:38:00
--
前面不是已经查出这个2个时间的行数据了吗，使用变量把这2个时间记下来咯
-- 发布时间：2020/8/10 23:08:00
--
还是不知道如何去除最早和最晚时间，帮我写写呗
Dim nms As List(of String) = DataTables("表C").GetUniqueValues("", "试验时间")
For Each nm As String In nms
Dim Max As Double = DataTables("表C").Compute("Max(试验时间)","试验组编号 = \'" & nm & "\'")
Dim Min As Double = DataTables("表C").Compute("Min(试验时间)","试验组编号 = \'" & nm & "\'")
output.show(nm)
Next
-- 发布时间：2020/8/11 8:25:00
--
建议还是先重新学习一下：http://www.foxtable.com/webhelp/topics/1592.htm，连GetUniqueValues和Compute的用法都还不懂
另外都说了之前已经找出最早和最晚时间，记录下来使用即可
Dim nr22 = t.AddNew
nr22("检验项目") = "(1)最早一次的记载时间"
dim 最早时间,最晚时间 as date
Dim dr As DataRow = DataTables("表C").Find("试验组编号=\'" & r("试验组编号") & "\'","试验时间")
If dr IsNot Nothing Then
nr22("时间") = dr("试验时间")
最早时间 = dr("试验时间")
nr22("中靶数") = dr("中靶数量")
End If
Dim nr33 = t.AddNew
nr33("检验项目") = "(2)最晚一次的记载时间"
dr = DataTables("表C").Find("试验组编号=\'" & r("试验组编号") & "\'","试验时间 desc")
If dr IsNot Nothing Then
nr33("时间") = dr("试验时间")
最晚时间 = dr("试验时间")
nr33("中靶数") = dr("中靶数量")
End If
……
dim drs as list(of datarow) = DataTables("表C").select("试验组编号 = \'" & r("试验组编号") & "\' and 试验时间 <> #" & 最早时间 & "# and 试验时间 <> #" & 最晚时间 & "#")