- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]同时清除窗口控件绑定值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143354)
-- 发布时间：2019/11/21 17:07:00
-- [讨论]同时清除窗口控件绑定值
老师好:
请教下,平板操作如何在清除窗口控件值时能同步清除绑定的当前表行列值
e.Form.Controls("TextBox1").Value = Nothing
此主题相关图片如下：清除控件值同时清除当前行列值.jpg
谢谢!
-- 发布时间：2019/11/21 17:14:00
--
tables("A").current("第一列") = nothing
-- 发布时间：2019/11/21 19:32:00
--
谢谢老师
1.当某表有接近200列时,有没有办法快速定位找到需要的列(类似模糊查找)
2.需要在窗口时间控件值判断不为空时,对状态赋值"生产中",在时间控件加上判断,不知道为什么,时间控件要选择2次才能把时间选中
此主题相关图片如下：时间选择.jpg
此主题相关图片如下：清除控件值和表行列值报错.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口控件清除值及时间行列判断赋值.foxdb |
此主题相关图片如下：时间选择.jpg还有种情况点清除时偶尔会报错(另外一个测试项目代码一样只是列名不同)删除BIN文件夹,有时候又不出现报错,不知道发布后还会不会出现
此主题相关图片如下：清除控件值和表行列值报错.jpg谢谢!
[此贴子已经被作者于2019/11/21 21:26:24编辑过]
-- 发布时间：2019/11/22 10:38:00
--
模糊查找列：
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
Next
-- 发布时间：2019/11/22 10:43:00
--
2、改用ValueChange事件，代码:
e.Sender.WriteValue
If e.Form.Controls("DateTimePicker1").Value <> Nothing Then
Tables("表A").current("状态") = "生产中"
End If
-- 发布时间：2019/11/25 8:55:00
--
非常谢谢狐爸
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
Next
请帮看看,现在窗口4个控件:01:文本框(模糊列名) 02:查询定位 03:下一列 04:上一列 如何实现能在窗口控件模糊查询定位,并能上下列包含关键字列的定位切换.(如已到包含关键字最后一列或包含关键字第一列时提示:"本次已查找完成,请更换其它需查询关键字")
谢谢!
-- 发布时间：2019/11/25 9:24:00
--
Dim s As String = "*" & nr & "*"