- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 条件添加 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106254)
-- 发布时间：2017/9/5 14:34:00
-- 条件添加
If e.Row("状态") = "办理中" and "待办理" Then ’为什么不对呢
e.Table.ShowToolTip(r("办理人" And "项目内容"),e.Row,e.Col)
这个中间不能使用 and 吗？ 感谢 感谢
[此贴子已经被作者于2017/9/5 14:38:49编辑过]
-- 发布时间：2017/9/5 14:42:00
--
If e.Row("状态") = "办理中" OrElse e.Row("状态") = "待办理" Then \'为什么不对呢
e.Table.ShowToolTip(e.row("办理人") & " " & e.row("项目内容"),e.Row,e.Col)
-- 发布时间：2017/9/5 22:38:00
--
能帮忙看看这个吗？
办理人 为事件记录 表内的列 不是 计划表列的列 感谢 感谢
If DrawGannt AndAlso e.Row.Index >= 0 AndAlso e.Row.Index < Tables("计划表窗口_Table4").Rows.count Then
Dim r As Row = Tables("计划表窗口_Table4").Rows(e.Row.Index)
Dim dt1 As Date = r("计划_开始日期")
Dim dt2 As Date = iif(r.Isnull("计划_完成日期"), Date.Today, r("计划_完成日期"))
Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
If dt>=dt1 AndAlso dt<=dt2 Then
e.Table.ShowToolTip(r("办理人"),e.Row,e.Col)
End If
End If
-- 发布时间：2017/9/5 22:47:00
--
有什么问题呢
-- 发布时间：2017/9/6 9:12:00
--
请把代码写在mouseEnterCell事件。有问题上传具体实例。
-- 发布时间：2017/9/6 22:14:00
--
Dim dr As DataRow = DataTables("计划表").addnew
dr("项目内容")=e.form.controls("TextBox6").text
这个可以在 TextBox6 前面加 “完成” TextBox6后加 “此事件”这几个字吗？感谢 感谢
-- 发布时间：2017/9/6 22:21:00
--
问问 编号怎么等于时间的日期啊，感谢 感谢
此主题相关图片如下：qq截图20170906222242.jpg
-- 发布时间：2017/9/6 22:33:00
--
以下是引用yangwenghd在2017/9/6 22:14:00的发言：
Dim dr As DataRow = DataTables("计划表").addnew
dr("项目内容")=e.form.controls("TextBox6").text
这个可以在 TextBox6 前面加 “完成” TextBox6后加 “此事件”这几个字吗？感谢 感谢
Dim dr As DataRow = DataTables("计划表").addnew
dr("项目内容")="完成" & e.form.controls("TextBox6").text & "此事件"
-- 发布时间：2017/9/6 22:34:00
--
此主题相关图片如下：qq截图20170906222242.jpg
参考 http://www.foxtable.com/webhelp/scr/2403.htm
-- 发布时间：2017/9/7 0:05:00
--
If e.DataCol.Name = "事件日期" Then
If e.DataRow.IsNull("事件日期") Then
e.DataRow("事件编号") = Nothing
Else
Dim d As Date = e.DataRow("事件日期")
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
Dim bh As String = Format(d,"yyyyMM") \'生成编号的前6位,4位年,2位月.
If e.DataRow("事件编号").StartsWith(bh) = False \'如果编号的前6位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(事件编号)","事件日期 >= #" & fd & "# And 事件日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(7,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("事件编号") = bh
End If
End If
End If
为什么取消后面的3位编号不行呢 感谢 感谢