代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码问题

共有2255人关注过本帖树形打印复制链接主题：代码问题

bestorange

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

加好友

发短信

等级：二尾狐帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00

代码问题

Post By：2015/10/21 20:57:00 [只看该作者]

在窗口中的两个图片控件，根据窗口绑定表中某列下是否有数据而判定显示哪一个控件的代码这样写可以吗？

Dim dr As List(Of DataRow) = DataTables("学员一览表").Select("姓名 = '" & Tables("学员一览表").Current("姓名") & "'")
If dr("指纹1" And "指纹2") Is Nothing Then
e.Form.Controls("未登记").Visible = True
e.Form.Controls("已登记").Visible = False
Else
e.Form.Controls("已登记").Visible = True
e.Form.Controls("未登记").Visible = False

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/21 21:02:00 [只看该作者]

If dr.IsNull("指纹1") AndAlso dr.IsNull("指纹2") Then

bestorange

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

加好友

发短信

等级：二尾狐帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00

Post By：2015/10/21 21:05:00 [只看该作者]

以下是引用大红袍在2015/10/21 21:02:00的发言：
If dr.IsNull("指纹1") AndAlso dr.IsNull("指纹2") Then

此主题相关图片如下：qq图片20151021210518.png

bestorange

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

加好友

发短信

等级：二尾狐帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00

Post By：2015/10/21 21:07:00 [只看该作者]

此主题相关图片如下：qq图片20151021210621.png

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/21 21:12:00 [只看该作者]

Dim dr As Row = Tables("学员一览表").Current("姓名")
If dr.IsNull("指纹1") AndAlso dr.IsNull("指纹2") Then
    e.Form.Controls("未登记").Visible = True
    e.Form.Controls("已登记").Visible = False
Else
    e.Form.Controls("已登记").Visible = True
    e.Form.Controls("未登记").Visible = False
End If

bestorange

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

加好友

发短信

等级：二尾狐帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00

Post By：2015/10/21 21:32:00 [只看该作者]

Dim dr As Row = Tables("学员一览表").Current

这样就可以了。。。

多谢大师

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

主题：代码问题