Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享] 事务日历 改进


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

主题：[分享] 事务日历 改进
帅哥哟，离线，有人找我吗？
逛逛
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		[分享] 事务日历 改进  发帖心情 Post By：2014/8/27 17:43:00 [显示全部帖子]

开新帖，分享 事务日历改进版

 

1、和上一贴在代码上有较大的差别。

2、将大量代码封装在全局代码中，并将可调整的代码做了区分，增强了易用性。

3、使用方法看情况，有需要再做，

4、回帖还是要的。

 

 

注意：新项目使用时，先将全局代码复制到项目中，并修改全局代码开始处的对应关系。

 

 


图片点击可在新窗口打开查看此主题相关图片如下：事务日历.jpg
图片点击可在新窗口打开查看

 

 

 

 

 


 

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:我的日历20140827.zip

 

 

 

[此贴子已经被作者于2015/10/4 12:38:32编辑过]
[本帖被加为精华]
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/8/27 17:53:00 [显示全部帖子]

以下是引用有点甜在2014-8-27 17:49:00的发言：

很好，最开始的那个，确实有一些不足的地方

 

图片点击可在新窗口打开查看

 

 

那个在算法上有问题，使用也不太方便，主要是代码太分散了，找个错误要半天。一不小心，还复制错。
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/8/28 9:19:00 [显示全部帖子]

以下是引用shanmao在2014-8-28 8:57:00的发言：

还有一个问题，就是你点击在日期农历日期那表格中，会报出运行错误。比如，你点击在【28    初四】那一格。

你说的是这个版本

 

我测试 没有错误啊？
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/8/28 13:01:00 [显示全部帖子]

以下是引用hbhb在2014-8-28 12:40:00的发言：
图片点击可在新窗口打开查看老大：为何与我的程序冲突？

我这里没发现 问题啊

 

你先一模一样照搬把

 

然后再修改

 

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


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/8/28 13:45:00 [显示全部帖子]

以下是引用hbhb在2014-8-28 13:11:00的发言：
一点没有修改，依葫芦画的瓢，好像与我的一个面板自定义函数冲突，我的函数为：
Select Case uv
Case 5,6,7
args(0).backColor = color.Transparent
Case 8
args(0).backColor = color.steelblue
End Select
您的全局代码一复制到我的程序中就报错？为何？

全局变量和自定义函数应该不会冲突的，你看看你的全局变量中，有没有同名的变量
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/8/28 14:24:00 [显示全部帖子]

以下是引用hbhb在2014-8-28 14:14:00的发言：

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

不会是代码没有复制完整吧？

 

你用Ctrl + A 全选复制 看看
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/9/3 8:11:00 [显示全部帖子]

以下是引用hjcslr在2014-9-2 21:51:00的发言：
出现这个错误

图片点击可在新窗口打开查看此主题相关图片如下：2014-09-02_21-53-38.jpg
图片点击可在新窗口打开查看

如果是最新版本，看一下是否是这个原因   http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=56292
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/9/7 22:08:00 [显示全部帖子]

以下是引用rjh4078在2014-9-7 11:34:00的发言：

执行这段代码的时候

_my日历 = New 自定义日历
_my日历.Panel绑定(e.Form.Controls("Panel1"))
Dim MyDate1 As Date = _my日历.日期
e.Form.Controls("L_当前年月").text = MyDate1.Year & "年" & MyDate1.Month & "月"

 

出现下面报错

 

 

.NET Framework 版本：2.0.50727.6419
Foxtable 版本：2014.9.2.1
错误所在事件：窗口,UI,AfterLoad
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index

图标是否复制了，或者在全局变量中重新指定了？
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/9/9 8:57:00 [显示全部帖子]

哎~

 

1、俺的狗狗，年限到了，进站保养去了，所以现在看不了。

 

2、你测试一下俺的实例有没有这个问题。
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/9/9 9:17: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.04688 秒, 6 次数据查询