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

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

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

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

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

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

判断条件是什么？没看懂！

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

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

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

代码求帮助，谢谢

 

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

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

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

 

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

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

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

和日期列有什么关系？意思是日期列有值的右边才输入已完成？

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

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

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

 

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

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

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

我就想问：在对应的 _完成否 列录入 已完成3个字，和日期列有什么关系？是不是只要选中的行都全部填入已完成3个字？

选中的行都全部填入已完成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

代码不复杂啊，一点都理解不来吗