关于条件取值列方法求教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何让表A中的年绩效分数等于表B中指定条件下的年绩效分数

条件为：根据系统当前日期的月份往前推11个月算出年绩效分数
例如今天是13年8月份那么当年绩效分数就是去年7月至今年8月的分数累积和

还有一个问题是否可以自动生成例如表B中的月份列，例如时间到了13年那么自动生成13年一月份二月份。。。等等这些列

3，表A中有一个本月考核分数（这个实际上是初审分数报上去考核的），是否可以增加一个按钮当点击这个按钮后即可根据系统当前日期的月份
自动导入到表B中对应的月份分数？

如何将数字变成中文格式例如 11 变成十一 24 变成二十四我试过帮助中的字符转换格式函数例如 CLNUM 只能将 11 变成一一

目录树以时间为节点怎么总是显示 2013-9-12 00:00:00 如何把这种格式的后面的时间去掉啊只留日期

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

AL列式每一年的累计值计算的时候不考虑

不科学那要怎么设计呢使用SQL查询表是不是需要建立SQL 呢我用的是ACC的数据库

以下是引用czy在2013-8-20 17:47:00的发言：

咱忙，没时间仔细揣摸，第一个问题大致是这样的。

下面的代码没有统计AL列。

Dim d As Date = Date.Today
d = d.AddMonths(-13)
Dim n As Double
For Each dr As DataRow In DataTables("表A").DataRows
    Dim dr1 As DataRow = DataTables("表B").Find("姓名 = '" & dr("姓名") & "'")
    If dr1 IsNot Nothing Then
        n = 0
        For i As Integer = 0 To 13
            n = n + dr1("A" & iif(d.Month + i > 12,d.Year + 1 ,d.Year) & "_" & iif(d.Month + i > 12 ,d.Month + i -12,d.Month + i))
        Next
        dr("当年绩效分数") = n
    End If
Next

谢谢您的代码请问第二个和第三个问题怎么解决呢

大哥第三个问题呢就是如何让11变成十一而不是一一谢谢您受教了

[此贴子已经被作者于2013-8-20 20:03:29编辑过]

主题：关于条件取值列方法求教