新手求助，盼解答！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新手求助，盼解答！

共有1433人关注过本帖树形打印复制链接主题：新手求助，盼解答！

洮沙

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：781 积分：6688 威望：0 精华：0 注册：2017/8/31 12:07:00

新手求助，盼解答！ 发帖心情

Post By：2017/9/10 22:24:00 [只看该作者]

Dim dr As String = e.Form.Controls("TextBox1")
If dr = 0 Then
e.Form.Controls("DateTimePicker1").Enabled = False
Else
End If

计划：判断TextBox1文本框中值为0，DateTimePicker1日期输入框为禁止编辑，变灰色。

但是自己无法写语句了，一直出错！请大神们帮帮忙。

我是放在窗口“全局 enter”事件中，不知对否？

新手，望见谅！

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4628 积分：33772 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2017/9/10 22:28:00 [只看该作者]

dr = "0"

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/10 22:38:00 [只看该作者]

Dim s As String = e.Form.Controls("TextBox1").text
If s = "0" Then
e.Form.Controls("DateTimePicker1").Enabled = False
else

e.Form.Controls("DateTimePicker1").Enabled = true
End If

洮沙

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：781 积分：6688 威望：0 精华：0 注册：2017/8/31 12:07:00

回复：（有点甜）Dim s As String = e.Form.Cont... 发帖心情

Post By：2017/9/11 9:29:00 [只看该作者]

谢谢，解决了，我还是没有将“变量”看透。以后还得是多学习。

主题：新手求助，盼解答！