以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Label1 绑定当月  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92471)

--  作者:yangwenghd
--  发布时间:2016/11/4 9:02:00
--  Label1 绑定当月
Label1可以绑定指定的当月的列吗?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20161104090005.jpg
图片点击可在新窗口打开查看


--  作者:有点色
--  发布时间:2016/11/4 9:55:00
--  

AfterLoad事件

 

Dim t As Table = Tables("统计")
Dim idx As Integer = t.findRow("年份 = \'" & Date.Today.Year & "\' and 月份 = \'" & Date.Today.Month & "\'")
t.position = idx


--  作者:yangwenghd
--  发布时间:2016/11/4 11:09:00
--  
谢谢 可以用了 ,只是没看懂 ,为什么没有指定控件都可以啊  会影响其绑定的Label1 吗 ?


--  作者:有点蓝
--  发布时间:2016/11/4 11:30:00
--  
绑定的情况下,只要切换不同的行,控件的值就会自动刷新。
--  作者:yangwenghd
--  发布时间:2016/11/4 13:26:00
--  
谢谢 可以是指定的 Label1 因为有两个都绑定了列 有一个需要 和鼠标点击的行绑定 ,有一个Label1是固定就绑定当月的行, 感谢 感谢 
--  作者:有点青
--  发布时间:2016/11/4 13:53:00
--  

1、不要绑定表列;

 

2、直接赋值

 

Dim dt As DataTable = DataTables("统计")
Dim fdr As DataRow = dt.Find("年份 = \'" & Date.Today.Year & "\' and 月份 = \'" & Date.Today.Month & "\'")
If fdr IsNot Nothing Then

    e.Form.Controls("Label1").Text = fdr("月份")

    e.Form.Controls("Label2").Text = fdr("备注")

End If


--  作者:yangwenghd
--  发布时间:2016/11/4 15:40:00
--  
感谢 感谢 能帮忙看看这个问题吗 ?确实没得办法了!!!!
感谢 感谢