[求助]如何根据规定自动生成工作日程表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何根据规定自动生成工作日程表

共有28029人关注过本帖树形打印复制链接主题：[求助]如何根据规定自动生成工作日程表

liuruihua	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	[求助]如何根据规定自动生成工作日程表 Post By：2008/10/23 13:18:00 [只看该作者] 用户已被锁定

lxl

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

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/10/23 13:53:00 [只看该作者]

DataTables("免疫安排表").DataRows.Clear

For Each r1 As Row In Tables("进鸡记录").Rows

Dim BirthDay As Date = r1("日期")

For Each r2 As Row In Tables("免疫程序").Rows

Dim r As Row = Tables("免疫安排表").AddNew

r("日期") = BirthDay.AddDays(r2("日龄"))

r("栏舍号") = r1("栏舍号")

r("日龄") = r2("日龄")

r("疫苗名称") = r2("疫苗名称")

r("接种方法") = r2("接种方法")

r("剂量") = r2("剂量")

Next

思路是这样的。实际使用的时候不用清空免疫安排表，再全部生成安排。
可以只生成没有的日程安排。

lxl	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00	Post By：2008/10/23 14:47:00 [只看该作者] 您无权查看精华帖子
	[本帖被加为精华]

gdtgl

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

加好友

发短信

等级：一尾狐帖子：445 积分：3025 威望：0 精华：0 注册：2008/9/13 10:49:00

Post By：2008/10/23 17:21:00 [只看该作者]

强，用foxtable好熟练啊....

liuruihua	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2008/10/23 19:08:00 [只看该作者] 用户已被锁定

gdtgl

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

加好友

发短信

等级：一尾狐帖子：445 积分：3025 威望：0 精华：0 注册：2008/9/13 10:49:00

Post By：2008/10/23 19:37:00 [只看该作者]

1,将免疫程序表中的空白行删掉...
2,合并模式...查看代码

With Tables("免疫安排表")
    .Redraw = False
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("日期")
    .MergeSort = "日期"
    .AllowMerge = True
    .Redraw = True
End With

[此贴子已经被作者于2008-10-23 19:52:46编辑过]

liuruihua	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2008/10/23 21:27:00 [只看该作者] 用户已被锁定

gdtgl

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

加好友

发短信

等级：一尾狐帖子：445 积分：3025 威望：0 精华：0 注册：2008/9/13 10:49:00

Post By：2008/10/23 22:01:00 [只看该作者]

1,免疫安排表生成空行因为在于免疫程序表有空行。。。。

DataTables("免疫安排表").DataRows.Clear

For Each r1 As Row In Tables("进鸡记录").Rows

Dim BirthDay As Date = r1("日期")

For Each r2 As Row In Tables("免疫程序").Rows

Dim r As Row = Tables("免疫安排表").AddNew

r("日期") = BirthDay.AddDays(r2("日龄"))

r("栏舍号") = r1("栏舍号")

r("日龄") = r2("日龄")

r("疫苗名称") = r2("疫苗名称")

r("接种方法") = r2("接种方法")

r("剂量") = r2("剂量")

Next

With Tables("免疫安排表")
    .Redraw = False
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("日期")
    .MergeSort = "日期"
    .AllowMerge = True
    .Redraw = True
End With

[此贴子已经被作者于2008-10-23 22:01:28编辑过]

gdtgl

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

加好友

发短信

等级：一尾狐帖子：445 积分：3025 威望：0 精华：0 注册：2008/9/13 10:49:00

Post By：2008/10/23 22:04:00 [只看该作者]

自已做的表的名字都不知的。。。

lxl

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

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/10/23 22:13:00 [只看该作者]

以下是引用liuruihua在2008-10-23 21:27:00的发言：
我的意思是在自动生成免疫安排表时不生空行(即疫苗名称、接种方法等都为空的行)，不用手工去删除。
另外，所查看到的代码应在什么事件中？

只要"免疫程序"表中没有空行就不会在新表中产生空行.或者在2楼第4行代码下面加上: If r2("日龄") Is Nothing Then Continue For

我还是建议用3楼的文件:
如果只是因为报表的话,3楼的方案一样能生成报表.现在的Excel报表就能打印关联表内容.
如果是想直观的在表中显示的话,3楼的方案一样通过增加表达式能实现相同的效果,效率还高很多很多:

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.table

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

总数 12 1 2 下一页

主题：[求助]如何根据规定自动生成工作日程表