主题：有没有这样的代码,让最底层标签到最顶层来?

还没有搞定！～  有谁帮一下！ 谢谢

非得加一楼才能到最顶位置， 大家帮我呀～

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.table

没看出有什么动静～  俺笨～  慢慢学～

Dim drs As List(Of Datarow) 
    drs = DataTables("flxsb").Select("[审核] is null") 
    if drs.Count > 0  then
        e.form.controls("label1").TopMost = true
    end if

咱也要继续学习啊，

ok!～ 很好啊～ 

我还有个绝的：供狐师、狐友们参考～ 当datalist中没有加载到任何行的时候，其底层的label会浮上来：：：
Dim dst As WinForm.DataList = Forms("pzsh").Controls("DataList1")
if dst.position ＝ 0-1 then ‘这个不知道是什么意思？但整个代码有效！～
e.form.controls("label1").TopMost = true 
end if

很好理解，position表示行的位置，0表示第一行，如果没有数据，position就等于-1了。

其实if dst.position ＝ 0-1 then 直接改成if dst.position ＝ -1 then 就行了

哦 ～  谢谢狐爸，谢谢大师们了。^_^