以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Label控件调用数据表的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79600)

--  作者:我来看看
--  发布时间:2016/1/5 19:15:00
--  [求助]Label控件调用数据表的问题

我想利用Label控件来调用显示出表A的最后一条数据请问如何写代码控制???

 

还有就是Label控件比如Label1调用表B第一条、Label2调用表B第二条、Label3调用表B第三条的数据,如何写代码???

 

如何实现滚动显示数据信息??????


--  作者:大红袍
--  发布时间:2016/1/5 19:25:00
--  

直接赋值

 

e.Form.Controls("Label1").Text = Tables("表A").Rows(0)("第一列")

e.Form.Controls("Label2").Text = Tables("表A").Rows(1)("第一列")

e.Form.Controls("Label3").Text = Tables("表A").Rows(2)("第一列")

[此贴子已经被作者于2016/1/5 19:25:22编辑过]

--  作者:我来看看
--  发布时间:2016/1/5 19:26:00
--  
写在click事件里吗
--  作者:大红袍
--  发布时间:2016/1/5 19:31:00
--  
随便什么事件
--  作者:我来看看
--  发布时间:2016/1/5 20:06:00
--  

如何实现滚动显示数据信息??????(就是在上面那个调用的基础上,如何实现一条条的滚动显示)


--  作者:大红袍
--  发布时间:2016/1/5 20:16:00
--  

 去编写timertick事件

 

Static i As Integer = 0

e.Form.Controls("Label1").Text = Tables("表A").Rows(i)("第一列")

i = i + 1

If i >= Tables("表A").Rows.Count Then

    i = 0

End If

 

http://www.foxtable.com/help/topics/1322.htm

 


--  作者:大红袍
--  发布时间:2016/1/5 20:20:00
--  

向左移动这样写。

 

Dim lbl = e.Form.Controls("Label1")
If lbl.left < -lbl.width Then
    lbl.left = e.form.width
Else
    lbl.left -= 10
End If

 

http://www.foxtable.com/help/topics/1301.htm

 


--  作者:我来看看
--  发布时间:2016/1/5 22:42:00
--  
谢谢红袍老师,调用成功了,我想再问一下,我调用的是标题,那么请问如何实现鼠标点这个标题后能够打开窗口显示对应的具体的内容呢??
--  作者:大红袍
--  发布时间:2016/1/5 22:44:00
--  
做个例子上传上来
--  作者:我来看看
--  发布时间:2016/1/5 22:47:00
--  

例子传不上来,就比如说现在Label控件调用显示的是表A的标题列,那么我现在

 

Static i As Integer = 0

e.Form.Controls("Label1").Text = Tables("表A").Rows(i)("标题")

i = i + 1

If i >= Tables("表A").Rows.Count Then

    i = 0

End If

 

我在点击这个显示的数据后,能够出现一个窗口,窗口里面显示的是后面对应的内容列的内容。