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

11楼

mr725 发表于：2009/3/19 0:40:00

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

[此贴子已经被作者于2009-3-19 13:09:33编辑过]

12楼

mr725 发表于：2009/3/19 13:18:00

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

13楼

yuansq 发表于：2009/3/19 13:41:00

参看老六的解释。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目8.table

14楼

mr725 发表于：2009/3/19 14:02:00

以下是引用yuansq在2009-3-19 13:41:00的发言：

参看老六的解释。

下载信息 [文件大小：316.0 KB 下载次数：1]
点击浏览该文件:管理项目8.table

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

15楼

狐狸爸爸 发表于：2009/3/19 16:05:00

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

16楼

yuansq 发表于：2009/3/19 16:30:00

以下是引用狐狸爸爸在2009-3-19 16:05:00的发言：
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

咱也要继续学习啊，图片点击可在新窗口打开查看

17楼

mr725 发表于：2009/3/19 17:01:00

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

18楼

狐狸爸爸 发表于：2009/3/19 17:12:00

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

19楼

smileboy 发表于：2009/3/19 17:14:00

以下是引用mr725在2009-3-19 17:01:00的发言：
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

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

20楼

mr725 发表于：2009/3/19 17:49:00

哦～谢谢狐爸，谢谢大师们了。^_^ 图片点击可在新窗口打开查看

共20 条记录, 每页显示 10 条, 页签: [1] [2]