条件添加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 条件添加

共有2018人关注过本帖树形打印复制链接主题：条件添加

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

条件添加

Post By：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编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/5 14:42:00 [只看该作者]

If e.Row("状态") = "办理中" OrElse e.Row("状态") = "待办理" Then '为什么不对呢
e.Table.ShowToolTip(e.row("办理人") & " " & e.row("项目内容"),e.Row,e.Col)

yangwenghd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：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

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/9/5 22:47:00 [只看该作者]

有什么问题呢

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/6 9:12:00 [只看该作者]

请把代码写在mouseEnterCell事件。有问题上传具体实例。

yangwenghd

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/6 22:14:00 [只看该作者]

Dim dr As DataRow = DataTables("计划表").addnew

dr("项目内容")=e.form.controls("TextBox6").text

这个可以在 TextBox6 前面加 “完成” TextBox6后加 “此事件”这几个字吗？感谢感谢

yangwenghd

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2017/9/6 22:21:00 [只看该作者]

问问编号怎么等于时间的日期啊，感谢感谢

此主题相关图片如下：qq截图20170906222242.jpg

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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 & "此事件"

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/6 22:34:00 [只看该作者]

以下是引用yangwenghd在2017/9/6 22:21:00的发言：
问问编号怎么等于时间的日期啊，感谢感谢

此主题相关图片如下：qq截图20170906222242.jpg

参考 http://www.foxtable.com/webhelp/scr/2403.htm

yangwenghd

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：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

为什么取消后面的3位编号不行呢感谢感谢

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：条件添加