- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口筛选显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183993)
-- 发布时间：2022/11/22 11:43:00
-- 窗口筛选显示
老师：您好！
我有一个窗口：添加了两个表：一个是扫描表，一个是清单表。两个表都有同一个字段：清单条码编码。我想员工扫进一个条码编码后，就在清单表里找到相同的这一条条码编码，并在下面的显示框里显示清单表里这一条记录的的其他内容。我不知道怎么实现，谢谢指教！我的界面如下：
此主题相关图片如下：8c874420f7f18d8f8dc45c694117c26.jpg
-- 发布时间：2022/11/22 11:44:00
--
此主题相关图片如下：24dd1b5cd8348999c62a83aa9177486.jpg
-- 发布时间：2022/11/22 11:51:00
--
扫描表的CurrentChanged事件代码设置为：
If e.Table.Current isnot nothing andalso Forms("窗口1").Opened Then \'如果窗口已经打开
Dim filter as string = "清单条码编码=\'" & e.Table.Current("清单条码编码") & "\'"
Dim wz As Integer = Tables("清单表").FindRow(filter)
If wz >=0 Then
Tables("清单表").Position = wz
End If
End If
-- 发布时间：2022/11/22 15:41:00
--
老师：您好！
上午的问题您给我解决了，谢谢！
我还有一个问题：我想在上面的窗口中，如果是客户要求到货日期是今天，在本窗口中提示“今天发货！”，我弄了半天夜没弄出来。并且有的代码（绿色的部分）没执行，请指教，谢谢！
If e.Table.Current IsNot Nothing AndAlso Forms("员工扫码").Opened Then \'如果窗口已经打开
Dim filter As String = "清单条码编码=\'" & e.Table.Current("清单条码编码") & "\'"
Dim wz As Integer = Tables("ddqdb").FindRow(filter)
If wz >= 0 Then
Tables("ddqdb").Position = wz
End If
Dim cb1 As WinForm.textBox = e.Form.Controls("textBox6")
Dim ts As Integer = cb1.value
Dim cb2 As WinForm.textBox = e.Form.Controls("textBox11")
Dim jt As Integer = cb2.value
e.Form.Controls("textBox1").value = ts * jt
Dim tm1 As WinForm.textBox = e.Form.Controls("datetimepicker1")
Dim cb3 As WinForm.textBox = e.Form.Controls("checkBox1")
If tm1.value = Date.Today Then
PopMessage("今天发货")
End if
Dim db As Boolean = cb3.value
If db = ture Then
MessageBox.show("此件为加急件", "提示！")
End If
End If
-- 发布时间：2022/11/22 15:51:00
--
调试
Dim tm1 As WinForm.textBox = e.Form.Controls("datetimepicker1")
Dim cb3 As WinForm.textBox = e.Form.Controls("checkBox1")
msgbox(cb3.value)
-- 发布时间：2022/11/22 16:00:00
--
在绑定的表的字段文本框里显示，提示栏里没有任何显示。
-- 发布时间：2022/11/22 16:07:00
--
说明这时候控件还没有值。如果控件绑定了列，应该到绑定的单元格取值，看看：http://www.foxtable.com/webhelp/topics/2436.htm
-- 发布时间：2022/11/22 17:30:00
--
老师您好！
窗口中这个字段是逻辑型，其控件的取值我不会。请指教！下列代码错误是：
此主题相关图片如下：fc2c0d868424a14c54272d2fdc114aa.jpg
代码：
Dim cb3 As WinForm.checkBox = e.Form.Controls("checkBox1")
\' Dim db As String = cb3.value
\' If db IsNot Nothing Then
\' MessageBox.show("此件为加急件", "提示！")
\' End If
-- 发布时间：2022/11/22 17:34:00
--
我原来是这样的
Dim cb3 As WinForm.checkBox = e.Form.Controls("checkBox1") \' Dim db As boolean = cb3.value \' If db IsNot Nothing Then \' MessageBox.show("此件为加急件", "提示！") \' End If 后来改成 Dim db As String = cb3.value 也是不执行。 |
-- 发布时间：2022/11/22 20:09:00
--
http://www.foxtable.com/webhelp/topics/0777.htm
Dim cb3 As WinForm.checkBox = e.Form.Controls("checkBox1") If cb3.checked Then MessageBox.show("此件为加急件", "提示！") End If |