- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 快速录入数据的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154376)
-- 发布时间：2020/9/12 23:08:00
-- 快速录入数据的问题
[此贴子已经被作者于2020/9/14 17:54:03编辑过]
-- 发布时间：2020/9/13 7:40:00
--
那如果开始号录入001，结束号录入025，填哪个类型？
-- 发布时间：2020/9/13 23:24:00
--
如果有多种类型可选的话，我想可以修改或新录入数据。
-- 发布时间：2020/9/14 8:32:00
--
字典表的数据是怎么样的截图看看？
-- 发布时间：2020/9/14 22:46:00
--
下图是我要实现的实际数据
此主题相关图片如下：快速录入数据.jpg
此主题相关图片如下：设备类型.jpg
[此贴子已经被作者于2020/9/14 22:47:01编辑过]
-- 发布时间：2020/9/14 22:59:00
--
使用find到字典表查询数据就行了：http://www.foxtable.com/webhelp/topics/0396.htm
Dim dr As DataRow
dim 编码 as integer = val(e.form.controls("开始号").text)
dr = DataTables("字典").Find("代码 = \'" & 编码 & "\'")
dr = DataTables("字典").Find("代码 = \'" & 编码 & "\'")
If dr IsNot Nothing Then \'如果找到的话
e.form.controls("类型").text = dr("类型")
End If
e.form.controls("类型").text = dr("类型")
End If
-- 发布时间：2020/9/15 23:55:00
-- 快速录入数据的问题
老师，我认为首先定位（开始号和结束号可以理解为：在仓库里面选择多少个连继编号的存放位置），然后把相同类型的物品放进去。开始号是为类型列选择焦点单元格，结束号是为类型列选择从焦点单元格到多少行，然后在到字典中选择设备图片、设备代码、设备类型到本列中来！
-- 发布时间：2020/9/16 8:57:00
--
查询开始号~结束号之间的行：http://www.foxtable.com/webhelp/topics/0400.htm
drs = DataTables("订单").Select("[开始号] >= \'“ & 开始号 & ”\' And [结束号] <=\'" & 结束号 & "\'")
然后遍历使用find查询类型赋值即可