如何让表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列。

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

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

第二个问题，按钮代码：

If DataTables("表B").DataCols.Contains("A" & today.Year & "_1")
    MessageBox.Show("已存在" & today.Year & "年的列,不能再增加")
Else
    Dim Builder As New ADOXBuilder
    Builder.Open() \'打开ADOXBuilder
    With Builder.Tables("表B")
        For i As Integer = 1 To 12
            .AddColumn("A" & today.Year & "_" & i ,ADOXType.Double)
        Next
        .AddColumn("A" & today.Year & "_AL",ADOXType.Double)
    End With
    Builder.Close()
    syscmd.Project.Open(ProjectFile)
End If

第三个问题，小意思啦。

按钮代码:

For Each dr As DataRow In DataTables("表A").DataRows
    Dim dr1 As DataRow = DataTables("表B").Find("姓名 = \'" & dr("姓名") & "\'")
    If dr1 IsNot Nothing Then
        dr1("A" & today.Year & "_" & today.Month) = dr("本月考核分数")
    End If
Next