Foxtable(狐表) → 用户栏目 → 专家坐堂 → 标志列问题


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

主题：标志列问题
帅哥哟，离线，有人找我吗？
xjc620
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		标志列问题  发帖心情 Post By：2014/12/21 14:30:00 [显示全部帖子]

acc数据源,表不能插入行,就打开了标志列插入行功能,然后插入了一行,但是把标志列插入行功能取消后,插入的行就又没有了,到了最后一行,难道这个插入行功能要永远都得打开了吗?能不能取消后插入的行不到最后一行

 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/21 14:55:00 [显示全部帖子]

插入行完成之后,关闭了功能,刚刚插入的就到了最后一行
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/21 15:10:00 [显示全部帖子]

那就永远都要开着了,不是说占系统资源吗

 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/21 15:12:00 [显示全部帖子]

知道了甜版

 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/21 15:22:00 [显示全部帖子]

但是还有一个问题
我在表里加入了一个代码,就是每进入表时把光标定位到最后一行,
现在因为插入了一行数据,现在一进入表就定位到插入的一行,怎么办
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/21 15:34:00 [显示全部帖子]

我在AfterOpenProject事件这样写的,但是一进项目打开日新车队表后是定位到刚插入的那一行,不是最后一行,在acc数据源里查看数据刚插入的那一行是最后一行
Dim id1 As Integer = Tables("日新车队").FindRow(Tables("日新车队").DataTable.Find("车号 Is not null", "_Identify desc"))
If id1 > -1 Then
    Tables("日新车队").Position = id1
Else
    Tables("日新车队").Position = Tables("日新车队").Rows.Count - 1
End If
[此贴子已经被作者于2014-12-21 15:35:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/21 15:44:00 [显示全部帖子]

这个不是定位到记录行吗?
If vars("stop") = False Then
    lockbasemainform
    CurrentTable.StopRedraw
    CurrentTable.Current.Save
    Dim identify As Integer = CurrentTable.Current("_Identify")
    Dim tidx As Integer = CurrentTable.TopVisibleRow
    CurrentTable.DataTable.Load
    Dim idx As Integer = CurrentTable.FindRow("_Identify = " & identify)
    If idx > -1 Then
        CurrentTable.Position = idx
        CurrentTable.TopVisibleRow = tidx
    Else
        CurrentTable.Position = CurrentTable.Rows.Count - 1
    End If
    CurrentTable.ResumeRedraw
    unlockbasemainform
End If
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/21 15:55:00 [显示全部帖子]

1这样是定位到有小数列了是吧?
2acc里面插入行的话,插入的行都是往下排序的是吗?
3acc是不能把插入的行也插入到里面的是吗?
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/21 16:01:00 [显示全部帖子]

明白了,那如果我在狐表里把数据复制下来,删除acc里的数据,再把复制的粘贴进去,这样的话是不是就是排序好的了,插入的那一行也是插入进去了
这个是删除选中行,我要是想删除选中行的数据,不删除行,怎么做啊
With Tables("日新车队")
    For i As Integer = .BottomPosition To .TopPosition Step -1
        .Rows(i).Delete()
    Next
End With

[此贴子已经被作者于2014-12-21 16:05:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xjc620
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5405 威望：0 精华：0 注册：2014/10/27 23:44:00 		  发帖心情 Post By：2014/12/21 16:18:00 [显示全部帖子]

哈哈,怎么蛋疼了甜版,代码不对吗?
[此贴子已经被作者于2014-12-21 16:18:30编辑过]
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04834 秒, 5 次数据查询