主题：[求助]当前行 框选非日期列填充 已完成

当前行 框选非日期列，框选的多列填充 已完成  按钮的代码怎么写？求帮助

此主题相关图片如下：当前行 框选多列.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:当前行 框选非日期列填充 已完成.foxdb

 行 框选中的日期列 清空，非日期列字符串值不变，下面代码，有缺陷吗？
Dim t As Table = CurrentTable
For i As Integer = t.LeftCol To t.RightCol
    If t.Cols(i).IsDate = True Then
        t.current(i) = Date.MinValue
    End If
Next

如果要撤销上面的代码操作，代码怎么写呢？系统的后退不行

如果之前对表修改过表还未保存，再执行下面代码
 Dim t As Table = CurrentTable
For i As Integer = t.LeftCol To t.RightCol
    If t.Cols(i).IsDate = False Then
        t.current(i) = "已完成"
    End If
Next

要保存之前对表的修改，不保存上面代码操作的效果，代码怎么写呢？

Syscmd.Edit.Undo() 这个撤销对上面代码撤销失效

 下面代码撤销会把之前对表修改过也一并 撤销，不是想要的效果

DataTables("表A").RejectChanges()

 这个代码是单行，非日期列填充字符  已完成
要改成多行，可以非日期列填充字符  已完成，代码怎么修改呢？谢谢
不知道怎么结合下面的代码修改
For i As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
    For j As Integer = CurrentTable.TopRow + 1 To CurrentTable.BottomRow
        CurrentTable.Rows(j)(i) = CurrentTable.Rows(CurrentTable.TopRow)(i)
    Next
Next

如图，隐藏完成否列 行框选 _计划完成日期列，对应的 _完成否列 填充字符：已完成

代码求帮助修改，谢谢 七夕快乐

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:隐藏完成否列.foxdb

此主题相关图片如下：隐藏完成否列.png

想实现是框选日期列，录入对应 完成否列 字符：已完成，日期列根据完成否列里面的字符：已完成  单元格背景样式调用 已完成样式（背景绿色）

 思路感觉可以这样： 框选的列名 加后缀_完成否  的列录入字符 已完成

坛主，理解我表达的想法没？

代码求帮助，谢谢

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:框选日期列录入已完成后日期列背景绿色3.foxdb

此主题相关图片如下：框选红色区域 按钮或录入 已完成.jpg

 

操作步骤如上图：框选红色区域，按钮确定，录入蓝色区域 4个完成否列录入 已完成

上面操作后，红色区域单元格背景色变成 绿色,效果如下图：

此主题相关图片如下：ok.jpg

买菜             粗加工             精加工            烹饪              是真列名，显示列标题为： 买菜_计划完成日期    粗加工_计划完成日期    精加工_计划完成日期     烹饪_计划完成日期  

买菜_完成否  粗加工_完成否   精加工_完成否   烹饪_完成否   

完成否列名，比计划完成日期列名，实际多一个后缀 _完成否  

 

上面5列日期列，可以为空，也可以在对应的 _完成否 列录入 已完成3个字——因为很多时候不记得买菜 粗加工 精加工 烹饪的具体完成时间

其实就想实现想 甘特图的效果——绿色进度条（如果记得日期，就显示在上面）

此主题相关图片如下：列名前缀一样 后缀多3个字_完成否.png

选中的行都全部填入已完成3个字——计划完成日期列，跳过不录入

完成否列——在隐藏列的情况下，录入 已完成3个字

 坛主，不好意思，我在17楼 描述有误：
选中的行都全部填入已完成3个字

只想行中框选的部分列，不是整行的_完成否列都录入，代码还需怎么修改才能实现呢？
Dim t As Table = CurrentTable
'For i As Integer = t.TopRow To t.BottomRow
For i As Integer = t.LeftCol To t.RightCol
    For Each c As Col In t.Cols
        If c.Name.EndsWith("_完成否") Then
            t.Rows(i)(c.Name) = "已完成"
        End If
    Next
Next
t.Refresh