以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  新手求助，盼解答！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106518)
--  作者：洮沙
--  发布时间：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
--  发布时间：2017/9/10 22:28:00
--  
dr = "0"
--  作者：有点甜
--  发布时间：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
--  作者：洮沙
--  发布时间：2017/9/11 9:29:00
--  回复：（有点甜）Dim s As String = e.Form.Cont...
谢谢，解决了，我还是没有将“变量”看透。以后还得是多学习。