主题：甘特图使用

无语

    Dim t As Table = Tables("计划表窗口_Table9")

    Dim dt As Date = t.Cols(t.colsel).Name.Replace("年","-").Replace("月_","-")

    Dim r As Row  = Tables("计划表窗口_Table4").Rows(t.Position)

    Dim fdr As DataRow = DataTables("事件记录").find("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "'")
    If fdr IsNot Nothing Then
        msgbox(1)

    Else

        msgbox(2)
    End If