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

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

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

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

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

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

 行 框选中的日期列 清空，非日期列字符串值不变，下面代码，有缺陷吗？
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

 

 t.current(i) = Nothing

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

参考：http://www.foxtable.com/webhelp/scr/1538.htm

如果之前对表修改过表还未保存，再执行下面代码
 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()

代码赋值的没有办法使用Undo，只能重新使用代码赋值

 这个代码是单行，非日期列填充字符  已完成
要改成多行，可以非日期列填充字符  已完成，代码怎么修改呢？谢谢
不知道怎么结合下面的代码修改
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

For i As Integer = t.LeftCol To t.RightCol