主题：[求助]如何判断日期与列【已解决】

命令窗口执行：

Dim nms As New List(of String)
Dim mns() As String = {"一","二","三","四","五","六","七","八","九","十","十一","十二"}
Dim m As Integer  = Tables("计划跟踪表").Rows(0)("生产日期").Month - 1
Dim d As Integer  = Tables("计划跟踪表").Rows(0)("生产日期").day - 1
For i As Integer = 1 To d
    nms.Add(mns(m) & "月_" & i & "日")
Next
For Each nm As String In nms
    Tables("计划跟踪表").Rows(0)(nm) = 1
Next