Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]增加数据行非常慢 估计我代码算法问题


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

主题：[求助]增加数据行非常慢 估计我代码算法问题
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/6 16:46:00 [只看该作者]

 代码

 


Tables("社员基本信息.社员消费明细").Visible = True
Tables("社员基本信息.社员消费明细").Sort = "配送日期"
Dim fdr As DataRow = DataTables("社员消费明细").Find("社员ID = '" & Tables("社员基本信息").Current("社员信息_社员ID") & "' and 配送日期 <= #" & Date.Today & "#", "配送日期 desc")
Tables("社员基本信息.社员消费明细").Position = Tables("社员基本信息.社员消费明细").FindRow(fdr)
 回到顶部
帅哥哟，离线，有人找我吗？
good131577
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		？  发帖心情 Post By：2014/7/6 21:32:00 [只看该作者]

有点甜大哥 
肉禽单下单界面 我是设置锁定的~  想点击修改最后记录按钮 可以修改最后一行（即当天的数据）
修改最后记录按钮 代码：

图片点击可在新窗口打开查看此主题相关图片如下：61.png
图片点击可在新窗口打开查看

With Tables("社员基本信息.畜牧出库单").
    Dim i As Integer
    i =  .BottomPosition
    .Rows(i).Locked = False
End With

这个代码哪里错了？？提示我 with Tables 应为标识符~
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/7/6 21:38:00 [只看该作者]

With Tables("社员基本信息.畜牧出库单")
    .Position = .Rows.Count - 1
    .current.Locked = False
End With

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


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		可以了~感谢  发帖心情 Post By：2014/7/6 21:44:00 [只看该作者]

可以了~谢谢 非常耐心的回答

 回到顶部
总数 14 上一页 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.03320 秒, 4 次数据查询