标题：[求助]如何根据规定自动生成工作日程表
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
思路是这样的。实际使用的时候不用清空免疫安排表，再全部生成安排。
可以只生成没有的日程安排。
强，用foxtable好熟练啊....
1,将免疫程序表中的空白行删掉...
2,合并模式...查看代码
With Tables("免疫安排表")
.Redraw = False
.MergeMode = MergeModeEnum.Standard
.MergeCols.Clear()
.MergeCols.Add("日期")
.MergeSort = "日期"
.AllowMerge = True
.Redraw = True
End With
|
2. 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 NextWith Tables("免疫安排表") .Redraw = False .MergeMode = MergeModeEnum.Standard .MergeCols.Clear() .MergeCols.Add("日期") .MergeSort = "日期" .AllowMerge = True .Redraw = True End With |
自已做的表的名字都不知的。。。
我的意思是在自动生成免疫安排表时不生空行(即疫苗名称、接种方法等都为空的行)，不用手工去删除。
另外，所查看到的代码应在什么事件中？
只要"免疫程序"表中没有空行就不会在新表中产生空行.或者在2楼第4行代码下面加上: If r2("日龄") Is Nothing Then Continue For
我还是建议用3楼的文件:
如果只是因为报表的话,3楼的方案一样能生成报表.现在的Excel报表就能打印关联表内容.
如果是想直观的在表中显示的话,3楼的方案一样通过增加表达式能实现相同的效果,效率还高很多很多:
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目10.table |