Foxtable(狐表)用户栏目专家坐堂 → [求助]不会写这个引用代码…


  共有3686人关注过本帖树形打印复制链接

主题:[求助]不会写这个引用代码…

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107301 积分:545766 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/11 17:35:00 [显示全部帖子]

没看懂,截图详细说明一下

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107301 积分:545766 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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("终点判断") = "其他"

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107301 积分:545766 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/12 14:40:00 [显示全部帖子]

就是4楼的用法,没看出有什么不一样

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107301 积分:545766 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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个列都没有符合的数据

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107301 积分:545766 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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("终点判断") = "其他"

 回到顶部