复选框选中后怎么找出最早的日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复选框选中后怎么找出最早的日期

共有4818人关注过本帖树形打印复制链接主题：复选框选中后怎么找出最早的日期

mamuaiqing

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：824 积分：6294 威望：0 精华：0 注册：2012/3/1 3:17:00

复选框选中后怎么找出最早的日期 发帖心情

Post By：2013/8/23 1:24:00 [只看该作者]

Dim dr1 As DataRow
For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    dr1 = Tables("窗口1_Table1").DataTable.Find(""#","日期")
    If dr1 IsNot Nothing Then '如果找到的话
       e.Form.Controls("DateTimePicker1").Value = dr1("日期")
    End If
Next

想找出窗口中的Table复选框已勾选最早的日期,并将值填到日期控件中,代码该怎么写?

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2013/8/23 6:18:00 [只看该作者]

俺还是觉得另外增加一个逻辑列进行处理更好一些

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/8/23 8:30:00 [只看该作者]

以下是引用y2287958在2013-8-23 6:18:00的发言：
俺还是觉得另外增加一个逻辑列进行处理更好一些

同意

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/8/23 9:02:00 [只看该作者]

不想增加列的话，可以这样：

Dim dt As Date = #12/31/9999#
For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
    If r.isnull("日期") = False AndAlso r("日期") < dt Then
        dt = r("日期")
    End If
Next
output.show(dt)

mamuaiqing

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：824 积分：6294 威望：0 精华：0 注册：2012/3/1 3:17:00

Post By：2013/8/23 13:56:00 [只看该作者]

感谢老爹的代码可以实现要求.

根据BIN老师跟y2287958老师的建议,学生写出下面的代码:

For Each r As Row In Tables("窗口1_Table1").GetCheckedRows
r("逻辑列") = True
Next

Dim dr As DataRow
dr = Tables("窗口1_Table1").DataTable.Find("逻辑列 = True","日期")
If dr IsNot Nothing Then '如果找到的话
e.Form.Controls("DateTimePicker1").Value = dr("日期")
End If

同时学会两种做法,感谢三位老师

下一主题 >> << 上一主题

主题：复选框选中后怎么找出最早的日期