- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]不会写这个引用代码… (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147192)
-- 发布时间：2020/3/11 17:20:00
-- [求助]不会写这个引用代码…
求助，有一个表 终点分类，里面有ABCD四列，然后另一个表使用手机端远程录入信息时，怎么用代码实现当终点等于A列里面的数据时，终点分类 列等于终点1，当终点等于B列里面的数据时，终点分类 列等于终点2，等于C列里面的数据时，终点分类 列等于终点3，等于D列里面的数据时，终点分类 列等于终点4，都不等于时，终点分类 列等于其他
-- 发布时间：2020/3/11 17:35:00
--
没看懂，截图详细说明一下
-- 发布时间：2020/3/11 21:12:00
--
谢谢有点蓝老师
此主题相关图片如下：终点分类.png
此主题相关图片如下：终点判断.png
-- 发布时间：2020/3/12 9:20:00
--
这个意思？
dim 终点 as string= e.values("xxx")
dim cls() as string = {"A","B","C","D"}
for i as integer = 0 to cls.length - 1
if datatables("终点分类").find(cls(i) & "=\'" & 终点 & "\'") isnot nothing then
dr("终点判断") = "终点" & (i+1)
exit for
end if
next
if dr.isnull("终点判断") then dr("终点判断") = "其他"
-- 发布时间：2020/3/12 14:19:00
--
蓝老师，不是这样，终点判断有可能会一直改的，就是类似下面这样的代码可以实现这样的功能吗..谢谢谢谢 Dim Mark As Integer = 终点 If Mark = 终点分类表里的A列里的数据 Then 终点判断＝终点一 ElseIf Mark = 终点分类表里的B列里的数据 Then 终点判断＝终点二 ElseIf Mark = 终点分类表里的C列里的数据 Then 终点判断＝终点三 ElseIf Mark = 终点分类表里的D列里的数据 Then 终点判断＝终点四 Else 终点判断＝其他 End If
[此贴子已经被作者于2020/3/12 14:34:04编辑过]
-- 发布时间：2020/3/12 14:40:00
--
就是4楼的用法，没看出有什么不一样
-- 发布时间：2020/3/12 14:48:00
--
老师，看不懂(◎_◎;)，能不能麻烦给加上注释啊…顺便把这个用法的帮助链接给我呗，我研究研究
-- 发布时间：2020/3/12 15:07:00
--
dim 终点 as string= e.values("xxx")
dim cls() as string = {"A","B","C","D"} 定义多个列名
for i as integer = 0 to cls.length - 1 遍历所有列
if datatables("终点分类").find(cls(i) & "=\'" & 终点 & "\'") isnot nothing then 如果某列有终点的数据
dr("终点判断") = "终点" & (i+1) 赋值对应的终点1、或者终点2、....
exit for 退出循环
end if
next
if dr.isnull("终点判断") then dr("终点判断") = "其他" 如果单元格值为空说明上面4个列都没有符合的数据
-- 发布时间：2020/3/12 17:11:00
--
蓝老师好，赋值那里，如果要赋的值不是这种规则的名字，而是对应的值分别是 起点 终点 半路 自己 ，这样要怎么赋值呢？ 谢谢老师
-- 发布时间：2020/3/12 17:35:00
--
im 终点 as string= e.values("xxx")
dim cls() as string = {"A","B","C","D"}
dim cls2() as string = {"起点","终点","半路","自己"}
for i as integer = 0 to cls.length - 1
if datatables("终点分类").find(cls(i) & "=\'" & 终点 & "\'") isnot nothing then
dr("终点判断") = cls2(i)
exit for
end if
next
if dr.isnull("终点判断") then dr("终点判断") = "其他"