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
Next
困扰：
1、统计表的列名无法确定，标题名可以确定。
2、由于按不同时间段统计，列不一定会存在所以顺序会乱。例如：[时间_1]列没有数据，则统计时不会显示，那么[时间_2]就会变成[时间_1]列，但它的标题会是[第二列]。
我的想法是通过标题判断需要的列是否存在，再来获取值，不知道代码怎么写，请老师指点。
For Each dc As DataCol In DataTables("统计表1").DataCols
msgbox(dc.Caption)
Next
加好友 
发短信
Post By：2019/1/24 18:52:00 [显示全部帖子]
