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

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

下面的代码没有统计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