- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 设计窗口右滚动条 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68361)
-- 发布时间：2015/5/15 13:08:00
-- [求助] 设计窗口右滚动条
我的窗口显示不全内容
此主题相关图片如下：360截图20150515130617602.jpg
如何实现下图通过右边滚动条来显示未显示出来的内容？
此主题相关图片如下：360截图20150515130711747.jpg
-- 发布时间：2015/5/15 13:14:00
--
加一个大面板，将其他所有控件拖入到这个面板中，再将这个面板的停靠属性设置为为fill！
-- 发布时间：2015/5/15 13:18:00
--
1、如何实现控件中的字体 上下 左右 都居中？
此主题相关图片如下：123.jpg
2、有如下命令，该怎样修改命令可以实现只读取【板盘端子名称】列的前 5个字母？比如：ODF1_01 我只读取其中的 ODF1
Dim dr1 As DataRow = DataTables("光缆纤芯台帐表").Find("机房名称 = \'" & e.Form.Controls("机房名称").Text & "\' and 光缆名称 = \'" & e.Form.Controls("光缆名称").Text & "\'and 纤芯编号 = 01 ")
If dr1 IsNot Nothing Then
e.Form.Controls("ODF盘_01").Text = dr1("板盘端子名称")
End If
[此贴子已经被作者于2015/5/15 14:11:14编辑过]
-- 发布时间：2015/5/15 14:16:00
--
1、做不到垂直居中的，只能水平居中；
2、
Dim dr1 As DataRow = DataTables("光缆纤芯台帐表").Find("机房名称 = \'" & e.Form.Controls("机房名称").Text & "\' and 光缆名称 = \'" & e.Form.Controls("光缆名称").Text & "\'and 纤芯编号 = 01 ")
If dr1 IsNot Nothing Then
If dr1("板盘端子名称").Length >= 5 Then
e.Form.Controls("ODF盘_01").Text = dr1("板盘端子名称").SubString(0, 5)
End If
End If
-- 发布时间：2015/5/15 14:32:00
--
我有一个命令想实现不同编号的控件显示与之相对于编号的内容；以下命令该怎么修改？红色部分命令有错误，提示 “语法错误:“&”运算符前缺少操作数。”
For i As Integer = 01 To 02
Dim dr As DataRow = DataTables("光缆纤芯台帐表").Find("机房名称 = \'" & e.Form.Controls("机房名称").Text & "\' and 光缆名称 = \'" & e.Form.Controls("光缆名称").Text & "\'and 纤芯编号 = & i ")
If dr IsNot Nothing Then
e.Form.Controls("业务名称_" & i).Text = dr("业务名称")
e.Form.Controls("纤芯长度_" & i).Text = dr("纤芯长度")
End If
Next
-- 发布时间：2015/5/15 14:36:00
--
Dim dr As DataRow = DataTables("光缆纤芯台帐表").Find("机房名称 = \'" & e.Form.Controls("机房名称").Text & "\' and 光缆名称 = \'" & e.Form.Controls("光缆名称").Text & "\'and 纤芯编号 = \'" & i & "\'"
[此贴子已经被作者于2015/5/15 14:37:11编辑过]