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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76108)

--  作者：bestorange
--  发布时间：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

--  作者：大红袍
--  发布时间：2015/10/21 21:02:00
--
If dr.IsNull("指纹1") AndAlso dr.IsNull("指纹2") Then

--  作者：bestorange
--  发布时间：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
--  发布时间：2015/10/21 21:07:00
--

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

--  作者：大红袍
--  发布时间：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
--  发布时间：2015/10/21 21:32:00
--

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

这样就可以了。。。

多谢大师