Foxtable(狐表)用户栏目专家坐堂 → 已发布项目日期不能输入


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

主题:已发布项目日期不能输入

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


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
已发布项目日期不能输入  发帖心情 Post By:2013/6/9 16:07:00 [只看该作者]


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

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130609160152.jpg
图片点击可在新窗口打开查看
已发布项目日期不能输入,请教

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


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

例子发出来吧,你这个提示看起来和能不能输入日期没关系.

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


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/6/9 16:27:00 [只看该作者]

是一个项目中有的表不能输入日期,有的表还能正常输入,可能原因是什么?指导我自己检查一下

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


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

上个例子分析一下,才知道.现在没看到东西.凭空猜测不好说.

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


加好友 发短信
等级:六尾狐 帖子:1418 积分:7167 威望:0 精华:0 注册:2013/3/18 8:37:00
  发帖心情 Post By:2013/6/9 16:29:00 [只看该作者]

第一有没有锁定列或表,第二你是否设置不允许直接输入

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


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/6/9 16:30:00 [只看该作者]

我如何能做出不能输入日期的例子,将项目传上来?

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


加好友 发短信
等级:六尾狐 帖子:1418 积分:7167 威望:0 精华:0 注册:2013/3/18 8:37:00
  发帖心情 Post By:2013/6/9 16:34:00 [只看该作者]

你找到你不能输入的日期的地方,把其他不相干的都删了,就是例子了

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


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/6/9 16:37:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130609163622.jpg
图片点击可在新窗口打开查看
重新启动过程中出现这个,请教是什么原因?

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


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

你的代码有问题.用非法的值来计算.无法正常得出日期格式.

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


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/6/9 16:40:00 [只看该作者]

Dim dt As Date = e.DataRow("日期")
If dt.Day < 26 Then
    dt = dt.AddMonths(-1)
End If
Dim dt1 As Date = New Date(dt.Year,dt.Month ,26)
Dim dt2 As Date = dt1.AddMonths(1).AddDays(-1)
If e.DataCol.name = "日期" Then
    If e.DataRow.IsNull("日期") = False
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("原料入库").Filter = Filter
    End If
End If

 回到顶部
总数 16 1 2 下一页