Foxtable(狐表) → 用户栏目 → 专家坐堂 → 科目导入


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

主题：科目导入
帅哥哟，离线，有人找我吗？
大红袍
 小大  141楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/22 16:39:00 [只看该作者]

例子，怎么不行啦

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 16:51:00 [只看该作者]

要点击一下凭证非数据表的空白处光标才显示出来。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/22 16:56:00 [只看该作者]

timertick事件

 

e.Form.Controls("Table1").Select
e.form.TimerEnabled = False

 

------------

 

点击目录树事件

 

e.form.TimerInterval = 500
e.form.TimerEnabled = True
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  144楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 17:05:00 [只看该作者]

If e.Node.Name <> "全部" Then
    If e.node.Level = 1 Then
        CurrentTable.current("摘要") = e.Node.text.split(" ")(1)
        e.form.TimerInterval = 500
        e.form.TimerEnabled = True
        Tables("凭证.凭证明细").Select(Tables("凭证.凭证明细").Current.Index, Tables("凭证.凭证明细").Cols("借方金额").index)
        Tables("凭证.凭证明细").StartEditing
    End If
    If Forms("凭证").opened Then
        Forms("摘要").Close
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  145楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 17:07:00 [只看该作者]

加在这里还是不行？

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/22 17:22:00 [只看该作者]

TimerTick事件

 

e.form.TimerEnabled = False

Forms("凭证").Controls("Table1").Select

Tables("凭证.凭证明细").Select(Tables("凭证.凭证明细").Current.Index, Tables("凭证.凭证明细").Cols("借方金额").index)
Tables("凭证.凭证明细").StartEditing
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  147楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 17:25:00 [只看该作者]

双击选择不了？

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/22 17:26:00 [只看该作者]

还有什么问题？例子。
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  149楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 18:00:00 [只看该作者]

两处都有代码 Tables("凭证.凭证明细").Select(Tables("凭证.凭证明细").Current.Index, Tables("凭证.凭证明细").Cols("借方金额").index) Tables("凭证.凭证明细").StartEditing 是否重复？

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/22 18:05:00 [只看该作者]

你可以去掉目录树里面的。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询