主题：我想要做个日记

用这个事件就行了，单击某个日期，就从表中找出这个日期对应的行，并定位到这一行：
http://www.foxtable.com/help/topics/2120.htm

 
例如： 
 
Dim wz As integer =  Tables("日记表的表名").FindRow("日期 = #" & e.Sender.Value & "#")
If wz > 0 Then
     Tables("日记表的表名").Position = wz
End if