社区

京东店铺
淘宝店铺
当当店铺
拼多多店铺

APP下载

扫描下载官方APP

VIP会员

VB答疑区

+关注

已有23人关注

+发表新帖

所属版块： VB答疑区

rjl0663

学分:0

+关注

私信

立即签到

版块推荐

DataGrid控件隐藏列的问题

发表在VB答疑区 2008-03-22

是否精华是否

版块置顶: 是否

<DIV style="FONT-SIZE: 12px">老师：您们好！</DIV>
<DIV style="FONT-SIZE: 12px">    学习了您们出版的《VB控件大全》之后，知道DataGrid控件可以隐藏列，但是我<FONT color=#2222dd size=4>现在不是直接隐藏某一列，而是要通过判断数据表中的某一字段是否是全空，如果是才将显示该字段的列隐藏</FONT>。</DIV>
<DIV style="FONT-SIZE: 12px">用这样判断一个字段就正确了：<BR>    For k = 1 To Adodc2.Recordset.RecordCount<BR>    If IsNull(Adodc2.Recordset.Fields("clde1")) Then<BR>         Adodc2.Recordset.MoveNext<BR>         a = k<BR>    Else<BR>       Exit For<BR>    End If<BR>    Next<BR>       If a = Adodc2.Recordset.RecordCount Then<BR>         DataGrid1.Columns(3).Visible = False<BR>       End If<BR></DIV>
<DIV style="FONT-SIZE: 12px">但是用这样的循环判断从某一个字段开始至某一字段结束又不行了,如下:<BR>   For k = 6 To 16<BR>    For i = 1 To Adodc2.Recordset.RecordCount<BR>    If IsNull(Adodc2.Recordset.Fields(k)) Then<BR>        Adodc2.Recordset.MoveNext<BR>         j = i<BR>    Else<BR>       Exit For<BR>    End If<BR>    Next<BR>       If j = Adodc2.Recordset.RecordCount Then<BR>         DataGrid1.Columns(k - 3).Visible = False<BR>       End If<BR>   Next</DIV>
<DIV style="FONT-SIZE: 12px"> </DIV>
<DIV style="FONT-SIZE: 12px">   请老师指导指导，谢谢！！！</DIV>

分享到：

关注

支持(0)

反对(0)

精彩评论 3

vbsoldier

学分：0 LV1

+关注

私信

2008-03-23

沙发

您好：您的代码只是判断最后一条记录中某个字段是否为空，当为空时隐藏某列。而不是判断所有记录的某字段是否为空。

支持(0)

反对(0)

rjl0663

学分：0 LV1

+关注

私信

2008-03-25

板凳

<P>老师，您说我的代码只判断最后一条记录是否这空，但是为什么</P>
<P>    For k = 1 To Adodc2.Recordset.RecordCount <BR>    If IsNull(Adodc2.Recordset.Fields("clde1")) Then <BR>         Adodc2.Recordset.MoveNext <BR>         a = k </P>
<P>         debug.print a<BR>    Else <BR>       Exit For <BR>    End If <BR>    Next <BR>       If a = Adodc2.Recordset.RecordCount Then <BR>         DataGrid1.Columns(3).Visible = False <BR>       End If <BR><BR> 如果字段全为空，这一句 debug.print a却能正确从1打印到总的记录数？那您的意思该如何写呢？请明示好吗？谢谢！！！<BR></P>

支持(0)

反对(0)

rjl0663

学分：0 LV1

+关注

私信

2008-04-30

地板

支持(0)

反对(0)

首页上一页 1 下一页尾页 3 条记录 1/1页