Foxtable(狐表)用户栏目专家坐堂 → 学习日期提醒遇到的问题?求助


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

主题:学习日期提醒遇到的问题?求助

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/23 10:49:00 [只看该作者]

行号的颜色不可以自定义的呢, 整行颜色自定义参考DrawCell事件
[此贴子已经被作者于2014-1-23 10:53:02编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/23 10:51:00 [只看该作者]

以下是引用幼狐在2014-1-23 10:48:00的发言:

我行号的颜色可以自定义,我能否把能行的颜色都自定义呢,类似与Excel的整行变色。

 

一样用drawcell事件,示例二就是了:

 

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

 


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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2014/1/23 14:23:00 [只看该作者]

e.DataRow("交货日期") = e.DataRow("下单日期").AddDays(e.DataRow("生产周期"))

交货日期=日期+生产周期(天数)

我想改为生产周日=交货日期-下单日期

Select Case e.DataCol.Name
    Case "日期","交货日期"
        If e.DataRow.IsNull("下单日期") Then
            e.DataRow("生产周期") = Nothing
        Else
            e.DataRow("生产周期") = e.DataRow("交货日期").Delete(e.DataRow("生产周期"))
        End If
End Select

这样写,提示调用的目标发生的异常。


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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2014/1/23 14:24:00 [只看该作者]

Select Case e.DataCol.Name
    Case "下单日期","交货日期"
        If e.DataRow.IsNull("下单日期") Then
            e.DataRow("生产周期") = Nothing
        Else
            e.DataRow("生产周期") = e.DataRow("交货日期").Delete(e.DataRow("下单日期"))
        End If
End Select

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/23 14:26:00 [只看该作者]

你这是要做什么? 怎么代码莫名其妙的?

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2014/1/23 14:37:00 [只看该作者]

新手帮助上的日期提醒的例子是:

生产日期+保质期天数=到期日期

我想换种方式写代码试验下:

保质期天数=到期日期-生产日期

这样的,Bin老师


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/23 14:44:00 [只看该作者]

计算天数,参考:

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

 

实例三就是了。


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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2014/1/23 15:03:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140123150004.jpg
图片点击可在新窗口打开查看
狐狸爸爸,看这个例子。

由于生产的需要,同1订单可能要派发给多个工作组共同作业。

我是采用逻辑列自动复制行的方法来实现的。

问题是,如果派单人员粗心或者着急点错了,能否在他点击后有个提示信息,确认后,在选中逻辑列呢!


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/23 15:08:00 [只看该作者]

DataColChangIng
if e.datacol.name= "XX" then
Dim Result As DialogResult
Result = MessageBox.Show(
"是否要确定?""提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If
 Result = DialogResult.NO Then
    e.Cancel=true

End
 if
end if




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

 

看帮助一定要按顺序,头一两遍可以不求甚解,第三遍开始要将每个例子实际操作演练一遍,不明白的就上论坛求助。
三遍之后才开始做系统,先设计好表,想做什么功能,就做什么功能,遇到问题在帮助找答案,找不到的在论坛提问,不断遇到问题,不断解决问题,慢慢就熟悉了。
此外一定要先掌握《使用指南》,然后再看《开发指南》


 回到顶部
总数 19 上一页 1 2