Foxtable(狐表)用户栏目专家坐堂 → [讨论]文本框的巧妙运用


  共有6606人关注过本帖平板打印复制链接

主题:[讨论]文本框的巧妙运用

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
[讨论]文本框的巧妙运用  发帖心情 Post By:2013/3/9 14:36:00 [只看该作者]

      我们单位的数据库中,有个录入窗口中的文本框,其中的文本只有最后两位数字,能被选中和编辑,之前的所有数字都不可选中和编辑。

请教各位大侠,如何实现。

      完美实现:TextBox4一定要在最上面,不然与Label1紧密靠近时,会被后者遮挡。(此实例及其他实例,以后会陆续发上来)

Forms("录入窗口").Controls("Label1").Text = Left(e.Row("A01"),e.Row("A01").Length - 2)
Forms("录入窗口").Controls("TextBox4").Text = Right(e.Row("A01"),2)
Forms("录入窗口").Controls("TextBox2").Text = e.Row("A02")
Forms("录入窗口").Controls("TextBox3").Text = e.Row("A03")
Forms("录入窗口").Controls("TextBox4").Width = 160
Forms("录入窗口").Controls("TextBox4").Left = 8
Forms("录入窗口").Controls("TextBox4").Width = Forms("录入窗口").Controls("TextBox4").Width - Forms("录入窗口").Controls("Label1").Width
If Forms("录入窗口").Controls("Label1").Text.Length > = 2 Then
    Forms("录入窗口").Controls("TextBox4").Left = Forms("录入窗口").Controls("TextBox4").Left + Forms("录入窗口").Controls("Label1").Width - 4
End If

[此贴子已经被作者于2013-3-9 22:54:47编辑过]

 回到顶部
总数 15 1 2 下一页