如果从统计表中获取填充数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each dr As DataRow In DataTables("表A").S e lect("")

Dim fdr As DataRow = DataTables("统计表1").Find("编号 = '"& dr("编号") &"'") '查询是否有请假记录

If fdr IsNot Nothing Then

dr("第一列") = fdr("时间_1") '[时间_1]列的标题是：第一列

dr("第二列") = fdr("时间_2") '[时间_1]列的标题是：第二列

End If

困扰：

1、统计表的列名无法确定，标题名可以确定。

2、由于按不同时间段统计，列不一定会存在所以顺序会乱。例如：[时间_1]列没有数据，则统计时不会显示，那么[时间_2]就会变成[时间_1]列，但它的标题会是[第二列]。

我的想法是通过标题判断需要的列是否存在，再来获取值，不知道代码怎么写，请老师指点。

For Each dc As DataCol In DataTables("统计表1").DataCols

msgbox(dc.Caption)

主题：如果从统计表中获取填充数据