- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 控件公式问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68630)
-- 发布时间：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
-- 发布时间：2015/5/21 16:24:00
--
控件绑定了列? 直接保持原状写到表事件里即可.
-- 发布时间：2015/5/21 16:25:00
--
呃.......
Dim dr As Row = Tables("表A").Current
-- 发布时间：2015/5/21 18:36:00
--
我有公式想筛选出某一天的内容；命令如下（如果此时我的控件【申请发生故障时间】选择日期为：2015-01-20）：
Tables("抢修整治迁改表").Filter = " 申请发生故障时间 = \'" & e.Form.Controls("申请发生故障时间").Value & "\' "
可是我的【申请发生故障时间】列时间格式为： 2015-01-20 14:25:00 ；在这种情况下进行筛选的结果是 空 ；我的命令该怎么修改？
-- 发布时间：2015/5/21 19:30:00
--
Dim d As Date = e.Form.Controls("申请发生故障时间").Value
Tables("抢修整治迁改表").Filter = " 申请发生故障时间 >= #" & d & "# and 申请发生故障时间 < #" & d.AddDays(1) & "#"
-- 发布时间：2015/5/21 20:15:00
--
如何实现根据【日期】列在【第几周】列自动生成【第*周】
比如今天是 2015-05-21 根据该日期我们知道这一天在2015年5月份中为 第四周 ；那么我该怎样实现在【第几周】列中写入：【201505第四周】
-- 发布时间：2015/5/21 20:44:00
--
参考代码
Dim d As Date = #5/21/2015#
Dim fday As Date = new Date(d.Year, d.Month, 1)
Dim finwek As Integer = fday.DayOfWeek
Dim fwekday As Integer = 7 - (finwek)
Dim diffday As Integer = d.Day - fwekday
diffday = iif(diffday > 0, diffday, 1)
Dim wekInMonth As Integer
If diffday Mod 7 = 0 Then
wekInMonth = math.Floor(diffday / 7) - 1
Else
wekInMonth = math.Floor(diffday / 7)
End If
wekInMonth += 1 + iif(d.Day > fwekday, 1, 0)
msgbox(wekInMonth)
-- 发布时间：2015/5/23 12:34:00
--
我想实现这样的筛选功能：
如果【处理结果】为：未处理 的行排在最前面、并且【工单编号】按升序排序；其他的不管【处理结果】内容是什么、都按【工单编号】列进行降序排序。
我在某【主窗口】的AfterLoad中命令该怎么写？
比如：
处理结果 工单编号
未处理 002
未处理 005
未处理 007
作废 102
已处理 101
已处理 100
作废 099
作废 098
[此贴子已经被作者于2015/5/23 12:35:33编辑过]
-- 发布时间：2015/5/23 13:45:00
--
得增加一个辅助列才可以做到, 辅助列的值根据处理结果而定. 未处理 为1 其他均为2
然后设置排序为
Sort="辅助列,工单编号"
-- 发布时间：2015/5/23 13:54:00
--
我在控件中写有命令如下：想实现自动复制内容；但是提示错误，我的命令该怎么修改？
ClipBoard.SetText(e.Form.Controls("申请发生故障时间") + e.Form.Controls("申请上报故障现象") + "已通知查看" )
此主题相关图片如下：360截图20150523135359941.jpg