Foxtable(狐表)用户栏目专家坐堂 → 想做个这样的功能?求帮助。


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

主题:想做个这样的功能?求帮助。

帅哥哟,离线,有人找我吗?
身份不明
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/3 10:39:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

Bin老师,想改下操作的方式,麻烦帮我写下代码吧。

入库日期小于等于交货日期=及时

入库日期大于交货日期=不及时

交货日期是提前录入的,最后录入入库日期,当填入入库日期后,“交货及时统计”列自动确认是否“及时”与“不及时”。(注:开始用的是逻辑列)


 


 回到顶部
帅哥哟,离线,有人找我吗?
身份不明
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/3 14:33:00 [只看该作者]

求帮助啊,没人回复。


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


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

新的例子发上来.   根据时间判断的话原本的方式就不适用了.

 回到顶部
帅哥哟,离线,有人找我吗?
身份不明
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/3 14:55:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb

入库日期小于等于交货日期=及时

入库日期大于交货日期=不及时


 回到顶部
帅哥哟,离线,有人找我吗?
身份不明
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/3 16:00:00 [只看该作者]

Bin老师,帮忙啊,已经上传例子了

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


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

根据你发的例子的表,不太确切你的需求.  你现在是基于这个表,输入日期的时候自动生成  及时或者不及时吗?

 回到顶部
帅哥哟,离线,有人找我吗?
身份不明
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3137 威望:0 精华:0 注册:2014/2/13 9:22:00
  发帖心情 Post By:2014/4/3 16:14:00 [只看该作者]

是的,就把及时和不及时的文字信息自动输入!


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


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

以下是引用身份不明在2014-4-3 16:14:00的发言:

是的,就把及时和不及时的文字信息自动输入!

 

代码

 

Select Case e.DataCol.name
    Case "交货日期", "入库日期"
        If e.DataRow.isnull("交货日期") = False AndAlso e.DataRow.isnull("入库日期") = False Then
            If e.DataRow("入库日期") <= e.DataRow("交货日期") Then
                e.DataRow("交货及时统计") = "及时"
            Else
                e.DataRow("交货及时统计") = "不及时"
            End If
        End If
end select


 回到顶部
总数 28 上一页 1 2 3