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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教如何改

共有1525人关注过本帖树形打印复制链接主题：请教如何改

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/14 13:17:00 [显示全部帖子]

不是很明显吗？你设置的条件应该是 #日期#

而你后面的#改成了单引号'

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/14 14:11:00 [显示全部帖子]

重置列，如果程序消失，说明死循环。自己调试下。

http://www.foxtable.com/webhelp/scr/1522.htm

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/14 15:06:00 [显示全部帖子]

这段代码为什么要写在datacolchanged事件？单独做一个按钮不行？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/14 15:12:00 [显示全部帖子]

如果你想写在datacolchanged事件，那就加载systemready，避免重复触发代码

http://www.foxtable.com/webhelp/scr/2218.htm

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/14 17:59:00 [显示全部帖子]

改一下就行

Select Case e.DataCol.name

Case "日期","姓名","职位","系数"

Dim d As Date = e.DataRow("日期")

d = new Date(d.year, d.month, 1)

Dim fdr As DataRow = DataTables("姓名").find("姓名 = '" & e.DataRow("姓名") & "' and 日期 >= #" & Format(d,"yyyy-MM-dd") & "# and 日期 < #" & Format(d.AddMonths(1),"yyyy -MM-dd") & "#", "日期 desc")

If fdr IsNot Nothing

e.DataRow("职位") = fdr("职位")

If e.DataTable.GetValues("生产形式", "日期 = #" & e.DataRow("日期") & "# and 生产形式 <> '个人'").Count > 1 Then

If e.DataRow("职位") Like "*拉长*" Then

e.DataRow("系数") = 1 + (fdr("系数") - 1)/ 2

Else

e.DataRow("系数") = fdr("系数")

End If

Else

e.DataRow("职位") = Nothing

e.DataRow("系数") = Nothing

End If

End Select

[此贴子已经被作者于2017/2/14 18:01:32编辑过]

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

主题：请教如何改