Foxtable(狐表)用户栏目专家坐堂 → [求助] 控件公式问题


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

主题:[求助] 控件公式问题

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助] 控件公式问题  发帖心情 Post By:2015/5/21 16:23:00 [显示全部帖子]

把以下命令写到控件中,需要怎么修改?

Dim dr As DataRow = e.DataRow
If dr.IsNull("申请区域")  Then
    MessageBox.Show("请填写完整的【工单信息】!!!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
    
Else
    
    DataTables("抢修整治迁改表").Save()
    
End If

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2015/5/21 18:36:00 [显示全部帖子]

我有公式想筛选出某一天的内容;命令如下(如果此时我的控件【申请发生故障时间】选择日期为:2015-01-20):

Tables("抢修整治迁改表").Filter = " 申请发生故障时间  =  '" & e.Form.Controls("申请发生故障时间").Value & "'  "

可是我的【申请发生故障时间】列时间格式为: 2015-01-20 14:25:00 ;在这种情况下进行筛选的结果是  空 ;我的命令该怎么修改?

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2015/5/21 20:15:00 [显示全部帖子]

如何实现根据【日期】列在【第几周】列自动生成【第*周】

比如今天是 2015-05-21 根据该日期我们知道这一天在2015年5月份中为  第四周 ;那么我该怎样实现在【第几周】列中写入:【201505第四周】

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2015/5/23 12:34:00 [显示全部帖子]

我想实现这样的筛选功能:

如果【处理结果】为:未处理 的行排在最前面、并且【工单编号】按升序排序;其他的不管【处理结果】内容是什么、都按【工单编号】列进行降序排序。

我在某【主窗口】的AfterLoad中命令该怎么写?

比如:


    处理结果                         工单编号

     未处理                            002
     未处理                            005
     未处理                            007
     作废                               102
     已处理                            101
     已处理                            100
     作废                               099
     作废                               098






[此贴子已经被作者于2015/5/23 12:35:33编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2015/5/23 13:54:00 [显示全部帖子]

我在控件中写有命令如下:想实现自动复制内容;但是提示错误,我的命令该怎么修改?

ClipBoard.SetText(e.Form.Controls("申请发生故障时间") + e.Form.Controls("申请上报故障现象") + "已通知查看" )


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


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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2015/5/23 14:38:00 [显示全部帖子]

点击后没有反应!!!(注明:我的控件是绑定了单元格的)

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2015/5/23 15:56:00 [显示全部帖子]

如果我希望实现从红色字体部分内容能够自动换行填写,以下命令该怎么修改?

 e.DataRow("故障处理派单内容") = e.DataRow("申请发生故障时间")+"【"+e.DataRow("申请上报故障现象")+"】请安排人员进行处理;并在 "+e.DataRow("故障处理超时时间")+" 前完成故障处理,在故障处理完毕后回复网管中心."

结果类似如下:
e.DataRow("申请发生故障时间")+"【"+e.DataRow("申请上报故障现象")+"】
请安排人员进行处理;并在 "+e.DataRow("故障处理超时时间")+" 前完成故障处理,在故障处理完毕后回复网管中心.
                





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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2015/5/23 16:39:00 [显示全部帖子]

如果我想在这些行中插入显示条件,该怎么处理?

比如:

"1" & vbcrlf & "2" 
结果会是
1
2

如果我想加入条件:如果 回复时间 <> "" 那么;显示(就是显示1、2行)

1
2

如果 回复时间= “” 那么;显示(就是只显示第1行)

1

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2015/5/23 16:54:00 [显示全部帖子]

这个我知道,但是我有很多行内容、每行都需要进行判断,如果该行的判断条件不成立、那就不显示相对应的该行;如果成立才显示;那么判断条件不是要N多组合?

比如:

如果1判断条件不成立而其他行判断条件都成立、就显示23456行;如果1、2行的判断条件不成立而其他行判断条件都成立、就显示3456行;如果1、3行的判断条件不成立而其他行判断条件都成立、就显示2456行;。。。。。。。。这样组合下去、那不好惨?


1
2
3
4
5
6


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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2015/5/23 17:02:00 [显示全部帖子]

for each r as row in tables("X").rows
是什么意思?特别是这个“X”

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