[讨论]同时清除窗口控件绑定值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好:

请教下,平板操作如何在清除窗口控件值时能同步清除绑定的当前表行列值

e.Form.Controls("TextBox1").Value = Nothing

此主题相关图片如下：清除控件值同时清除当前行列值.jpg

谢谢!

tables("A").current("第一列") = nothing

谢谢老师

1.当某表有接近200列时,有没有办法快速定位找到需要的列(类似模糊查找)

2.需要在窗口时间控件值判断不为空时,对状态赋值"生产中",在时间控件加上判断,不知道为什么,时间控件要选择2次才能把时间选中

下载信息 [文件大小：下载次数： ]
点击浏览该文件:窗口控件清除值及时间行列判断赋值.foxdb

此主题相关图片如下：时间选择.jpg

还有种情况点清除时偶尔会报错(另外一个测试项目代码一样只是列名不同)删除BIN文件夹,有时候又不出现报错,不知道发布后还会不会出现

此主题相关图片如下：清除控件值和表行列值报错.jpg

谢谢!

[此贴子已经被作者于2019/11/21 21:26:24编辑过]

模糊查找列：

Dim s As String = "*六*"

For Each c As Col In Tables("表A").Cols

If c.Name Like s Then

With Tables("表A")

.Select(.RowSel ,c.Index)

End With

End If

2、改用ValueChange事件，代码:

e.Sender.WriteValue

If e.Form.Controls("DateTimePicker1").Value <> Nothing Then

Tables("表A").current("状态") = "生产中"

End If

非常谢谢狐爸

1.窗口按钮事件少数判断赋值或清空值及控件替换图标可以,多了就容易导致弹出JIT错误..什么的,类似代码放在表事件里正常,可能是代码不严谨导致.(暂时在表事件能用能起作用就行)

2.模糊查找定位列如果在控件代码直接输入关键字可以查找定位,当用窗口文本控件绑定关键字,不能查询定位

Dim nr As String = e.Form.Controls("模糊列名").value '文本框

'Dim s As String = "*" & "*nr*" & "*"

Dim s As String = "*nr*"

For Each c As Col In Tables("SMT报工_table1").Cols

If c.Name Like s Then

With Tables("SMT报工_table1")

.Select(.RowSel ,c.Index)

End With

End If

请帮看看,现在窗口4个控件:01:文本框(模糊列名) 02:查询定位 03:下一列 04:上一列如何实现能在窗口控件模糊查询定位,并能上下列包含关键字列的定位切换.(如已到包含关键字最后一列或包含关键字第一列时提示:"本次已查找完成,请更换其它需查询关键字")

谢谢!

Dim s As String = "*" & nr & "*"

主题：[讨论]同时清除窗口控件绑定值