以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  提取全部  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178917)

--  作者:yaojun
--  发布时间:2022/7/27 16:55:00
--  提取全部
如下代码是从“KPI考核.考核模板”表里面提取“考核月份_1月”里面的数据,可是这样是只能选定一行提取一行的数据,能不能选定“KPI考核”里面的所有行,能一次性提取所有的啊,谢谢
Dim Filter As String
Dim filter2 As String = "1= 1 "

DataTables("计时工资核算").DataRows.Clear()
For Each xm As String In DataTables("考核模板").GetValues("被考核人",Filter)
    Dim fdr As DataRow = DataTables("KPI考核").find("[被考核人] = \'" & xm & "\'")
    If fdr Is Nothing Then
        \'fdr = DataTables("KPI考核").AddNew
        fdr("被考核人") = xm
    End If
    fdr("月分数") = Tables("KPI考核.考核模板").compute("sum(考核月份_1月)", "被考核人 = \'" & xm & "\' and " &  filter2)
    fdr("月份") = "一月份"
    
Next

--  作者:有点蓝
--  发布时间:2022/7/27 17:15:00
--  
没看懂,请截图说明具体要做什么功能
[此贴子已经被作者于2022/7/27 17:14:41编辑过]

--  作者:yaojun
--  发布时间:2022/7/27 21:01:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2022/7/27 21:01:04编辑过]

--  作者:yaojun
--  发布时间:2022/7/27 21:02:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

就是点击一月份按钮的时候,能自动计算表2里面的所有行的内容,而不是只计算当前行的内容

[此贴子已经被作者于2022/7/27 21:03:37编辑过]

--  作者:yaojun
--  发布时间:2022/7/27 21:39:00
--  
已解决