- 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=132306)
-- 发布时间：2019/3/19 15:01:00
-- 关于窗口查询报错的问题
老师好! 我在窗口中对表做一个查询，Textbox输入表中有的值时，查询能正常显示。输入表中没有的值时，点击查询报错。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:查询问题.table |
-- 发布时间：2019/3/19 15:30:00
--
表格的currentChanged事件
\'------------------------------副本Table之行位置联动开始----------------------
If e.Table.current IsNot Nothing Then
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("客户信息表").FindRow(dr)
If wz >=0 Then
Tables("客户信息表").Position = wz
End If
End If
\'------------------------------副本Table之行位置联动结束----------------------
-- 发布时间：2019/3/19 15:42:00
--
甜老师，在表currentChanged事件中加上代码后，还是报同样的错
-- 发布时间：2019/3/19 16:10:00
--
修改你窗口的表格的事件代码。
-- 发布时间：2019/3/19 17:32:00
--
在窗口的表格的currentChanged事件中加入代码后，还是同样的错
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:查询问题.table |
-- 发布时间：2019/3/19 17:35:00
--
这里啊
此主题相关图片如下：qq截图20190319173426.png
-- 发布时间：2019/3/20 9:25:00
--
甜老师，我是添加在这里的，在输入一个不存在的单位名称后，还是同样的错误。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:查询问题 (1).table |
-- 发布时间：2019/3/20 9:49:00
--
改成这样啊
\'------------------------------副本Table之行位置联动开始----------------------
If e.Table.current IsNot Nothing Then
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("客户信息表").FindRow(dr)
If wz >=0 Then
Tables("客户信息表").Position = wz
End If
End If
\'------------------------------副本Table之行位置联动结束----------------------
-- 发布时间：2019/3/21 17:08:00
--
谢谢甜老师的耐心！是我粗心了。现在又想请教一下。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:查询问题.table |
-- 发布时间：2019/3/21 17:50:00
--
Dim dwzs As Integer
dwzs=DataTables("客户信息表").sqlCompute("count([_identify])")
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label3")
lbl.Text = dwzs
http://www.foxtable.com/webhelp/scr/2897.htm