Foxtable(狐表)用户栏目专家坐堂 → 如何自动输入星期


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

主题:如何自动输入星期

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


加好友 发短信
等级:婴狐 帖子:2 积分:81 威望:0 精华:0 注册:2016/6/17 10:22:00
如何自动输入星期  发帖心情 Post By:2016/11/28 18:19:00 [只看该作者]

如何在第一列输如日期后第二列自动填充星期。第一列为日期列,第二列是要表达式列还是日期列?

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/11/28 20:08:00 [只看该作者]

 不能用表达式列。去编写datacolchanged事件

 

If e.DataRow.IsNull("第一列") = false Then
    e.DataRow("第二列") = format(e.DataRow("第一列"), "dddd")
else
    e.DataRow("第二列") = nothing
End If


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/28 20:11:00 [只看该作者]

字符列,表格DataColChanged事件

If e.DataCol.Name = "日期" Then '如果改变的是日期
    If e.DataRow.IsNull("日期") Then '如果日期为空
        e.DataRow("星期") = Nothing '星期也为空
    Else
        e.DataRow("星期") = e.DataRow("日期").DayOfWeek '显示星期几
    End If
End If



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


加好友 发短信
等级:婴狐 帖子:2 积分:81 威望:0 精华:0 注册:2016/6/17 10:22:00
  发帖心情 Post By:2016/11/30 12:02:00 [只看该作者]

谢谢

 回到顶部