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

With e.form

'===========在【设置】表中列出单号规则为1的记录=================

cmd.CommandText = "Select 单据前缀 F rom [设置] WHERE 名称 = '单号规则' And 方向 = '1'"

.Controls("TextBox1").value = cmd.ExecuteScalar() '指定控件的值为cmd返回的单个值

cmd.CommandText = "Select 单据前缀 F rom [设置] WHERE 名称 = '单号规则' And 方向 = '2'"

.Controls("TextBox2").value = cmd.ExecuteScalar()

cmd.CommandText = "Select 单据前缀 F rom [设置] WHERE 名称 = '单号规则' And 方向 = '盘点'"

.Controls("TextBox3").value = cmd.ExecuteScalar()

cmd.CommandText = "Select 单据前缀 F rom [设置] WHERE 名称 = '单号规则' And 方向 = '调拨'"

.Controls("TextBox4").value = cmd.ExecuteScalar()

cmd.CommandText = "Select 单据前缀 F rom [设置] WHERE 名称 = '全局参数' And 方向 = '上限预警'"

.Controls("NumericComboBox1").value = Val(cmd.ExecuteScalar()) 'Val 将【字符】转换为【数值】

cmd.CommandText = "Select 单据前缀 F rom [设置] WHERE 名称 = '全局参数' And 方向 = '下限预警'"

.Controls("NumericComboBox2").value = val(cmd.ExecuteScalar())

cmd.CommandText = "Select 单据前缀 F rom [设置] WHERE 名称 = '全局参数' And 方向 = '生成单号'"

.Controls("CheckBox1").Checked = cmd.ExecuteScalar() = "True"

End With

请问下，上述代码中.Controls("CheckBox1").Checked = cmd.ExecuteScalar() = "True" 这条语句应怎么解读

先执行红色代码，再执行蓝色代码，最后执行黄色代码

.Controls("CheckBox1").Checked = cmd.ExecuteScalar() = "True"

是不是可以这样理解： cmd.ExecuteScalar() 执行cmd命令返回一个值后在用cmd.ExecuteScalar() = "True" 作逻辑判断最后在将其值false或true赋值给复选框的选定状态

以下是引用wtfwsk05在2018/9/25 10:21:00的发言：
是不是可以这样理解： cmd.ExecuteScalar() 执行cmd命令返回一个值后在用cmd.ExecuteScalar() = "True" 作逻辑判断最后在将其值false或true赋值给复选框的选定状态

是的。

此主题相关图片如下：控件.png

请问下，加载窗口后，不显示货品类型后面的按钮* ，当输入焦点位于货品类型textbox1中时，显示按钮*

代码如下：

Dim txtbox1 As WinForm.TextBox = e.Form.Controls("TextBox1") '货品类型

Dim btn1 As WinForm.Button = e.Form.Controls("Button1") '按钮 *

'Focused 为 true =输入焦点位于该控件上 false =输入焦点不位于该控件上

If txtbox1.Focused= True Then

btn1.Visible = True

Else

btn1.Visible= False

End If

老师，请问下上述代码有没有问题，如没有问题应在那个事件中维护

1、可以是enter事件、leave事件；

2、可以是timertick事件。

"textbox1"的enter事件：

Dim btn1 As WinForm.Button = e.Form.Controls("Button1") '按钮 *

btn1.Visible = True

"textbox1"的leave事件：

Dim btn1 As WinForm.Button = e.Form.Controls("Button1") '按钮 *

btn1.Visible = false

为什么没有实现我所想要的上述功能

我测试没问题。要点击进入textbox1以及离开才行。

"textbox1"的enter事件：

Dim btn1 As WinForm.Button = e.Form.Controls("Button1") '按钮 *

btn1.Visible = True

"textbox1"的leave事件：

Dim btn1 As WinForm.Button = e.Form.Controls("Button1") '按钮 *

btn1.Visible = false

为什么进入控件textbox后能显示按钮*，但无法操作按钮，应怎么处理

我测试没问题，上传实例测试。

主题：语法解法