主题：[求助]日历控件问题

参考之前 日历 的做法，编写drawcell事件

设置高度

http://www.foxtable.com/help/topics/1548.htm

直接弄一个新的表，弄好后直接用。select * f rom {表A}

贴出代码。

但是如果你手动调整过某列的宽度，就不受DefaultColWidth影响。

Dim tb As Table = Tables("表A")
tb.SetHeaderRowHeight(20)  '隐藏列标题
tb.RowHeaderVisible = False   '隐藏行号列
Dim w As Integer = 500
Dim h As Integer = 100
tb.DefaultRowHeight = h /6       '非时间单元格的高度
For Each c As Col In tb.cols
    c.Width = w/2   '设置默认列宽
Next
tb.grid.ScrollBars = Windows.Forms.ScrollBars.None

1、用变量记录日历今年是第几年；

2、编写drawcell事件，写逻辑代码。

那你就点击的时候，直接取点击的单元格的值，合并成日期条件，然后统计结果。

复杂的，就有代码来完成；简单就用sql语句直接统计。