Foxtable(狐表)用户栏目专家坐堂 → 复制列后光标不能移动到新增行


  共有7997人关注过本帖树形打印复制链接

主题:复制列后光标不能移动到新增行

帅哥哟,离线,有人找我吗?
龙文
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:25 积分:364 威望:0 精华:0 注册:2012/3/8 22:01:00
复制列后光标不能移动到新增行  发帖心情 Post By:2013/3/12 12:04:00 [只看该作者]

大家好,我有这么一个需求

     在一个表里,先新增一行,录入数据,然后再新增一行,这个新增行,要复制上一行的部分列的数据。

但是,在复制后,光标停在被复制的行上,不能移动到新增行,请专家帮助解决这个问题。

谢谢

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:资金总账.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/12 12:16:00 [只看该作者]

If Tables("资金总账").DataTable.HasChanges Then
    MessageBox.Show("当前数据已修改,请保存后新增!","提示!")
    Return
Else
    Tables("资金总账").AllowEdit =True
        If DataTables("资金总账").DataRows.Count = 0 Then '如果是一个空表
        Return '那么返回
    End If
    Dim ColNames As String() = {"凭证号"} '定义一个数组,保存复制列的名称
    Dim dr As DataRow = DataTables("资金总账").DataRows(DataTables("资金总账").DataRows.Count - 1) '获得最后一行
    Dim dx As Row = Tables("资金总账").AddNew
    For Each ColName As String In ColNames
        dx(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.
    Next
End If

 

 

理由:

http://www.foxtable.com/help/topics/0560.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
龙文
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:25 积分:364 威望:0 精华:0 注册:2012/3/8 22:01:00
  发帖心情 Post By:2013/3/12 17:18:00 [只看该作者]

谢谢,问题已解决。

 回到顶部