以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  我想要做个日记  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23397)
--  作者：hnzcz
--  发布时间：2012/9/11 11:00:00
--  我想要做个日记

我想要做个日记

使用月历控件

点击某一日

相应的日记窗口就会跳出来

怎么实现啊
--  作者：狐狸爸爸
--  发布时间：2012/9/11 11:40:00
--  

用这个事件就行了，单击某个日期，就从表中找出这个日期对应的行，并定位到这一行：
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
--  作者：hnzcz
--  发布时间：2012/9/11 15:21:00
--  还是不对 有错误窗口
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目100009.table
--  作者：狐狸爸爸
--  发布时间：2012/9/11 15:57:00
--  
Dim wz As Integer =  Tables("表A").FindRow("第一列 = #" & e.Sender.Value & "#",0,False)
If wz > 0 Then
     Tables("表A").Position = wz
End If
--  作者：hnzcz
--  发布时间：2012/9/11 16:38:00
--  修改

Dim wz As Integer = Tables("表A").FindRow("第一列 = #" & e.Sender.Value & "#",0,False)
If wz >= 0 Then
Tables("表A").Position = wz
End If

 

我加入了一个等号，如果没有等号

第一个日期的数据就不会出来，你帮我看看对吗？

 

然后，还有个问题，

我不是所有的日期有相应的数据，如果没有相应的数据，应该为空，而不是取上一个选择的数据，怎么写啊

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目100009.table
--  作者：lin_hailun
--  发布时间：2012/9/11 16:57:00
--  
表格的位置是从 0 开始计数的

较简单的方法是，第一行为空，然后写代码

Dim wz As Integer = Tables("表A").FindRow("第一列 = #" & e.Sender.Value & "#",0,False)
If wz > 0 Then
    Tables("表A").Position = wz
Else
    Tables(表A"").Position = 0
End If
[此贴子已经被作者于2012-9-11 16:57:44编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/9/11 17:06:00
--  

如果某天没有日期，则显示空，那么你不能用绑定的。

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目111.table