Foxtable(狐表) → 用户栏目 → 专家坐堂 → 执行后失效


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

主题：执行后失效
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		执行后失效  发帖心情 Post By：2025/4/3 15:06:00 [显示全部帖子]


         Dim dr2 As DataRow = DataTables("回收编号表").Find("编号 is not null and 表名='订单表' and 前缀='前缀'", "编号")
            If dr2 IsNot Nothing Then
                e.DataRow("单号") = dr2("编号")
                dr2.Delete

上面执行后失效，如何改？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2025/4/3 15:30:00 [显示全部帖子]

红字代码是想在按“前缀，编号，表名“，从回收编号表查询取值，要在局网络实现，上面好象有错，请改正一下？

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2025/4/3 15:45:00 [显示全部帖子]

Dim dr2 As DataRow = DataTables("回收编号表").SQLFind("前缀 is not null and 表名='订单表'", "前缀", ("[编号] = '" & e.DataRow("编号") & "'"))

调用的目标发生了异常。
从字符串“[编号] = ''”到类型“Integer”的转换无效?
输入字符串的格式不正确。
[此贴子已经被作者于2025/4/3 15:55:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2025/4/3 16:47:00 [显示全部帖子]

 Dim dr2 As DataRow = DataTables("回收编号表").Find("前缀 is not null and 表名='订单表'", "前缀")
上面可执行，但加上编号列，下面执行，没报错，调试，结果为空，但回收编号表确实有数据，要如何解决？

Dim dr2 As DataRow = DataTables("回收编号表").SQLFind("前缀 is not null and 表名='订单表' and [编号] = '" & e.DataRow("编号") & "'", "前缀")
Dim dr2 As DataRow = DataTables("回收编号表").Find("前缀 is not null and 表名='订单表' and [编号] = '" & e.DataRow("编号") & "'", "前缀")


图片点击可在新窗口打开查看此主题相关图片如下：回收表.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2025/4/3 16:48:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2025/4/3 17:13:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：编号.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2025/4/3 19:17:00 [显示全部帖子]

Dim dr1 As DataRow = Tables("订单表").Current.DataRow
Dim dr2 As DataRow = DataTables("回收编号表").SQLFind("前缀='" & dr1("前缀") & "' and 表名='订单表'", "编号")
msgbox("前缀='" & dr1("前缀") & "' and 表名='订单表' ", "编号")

报错
从字符串“编号”到类型“Integer”的转换无效。
输入字符串的格式不正确。

前缀，编号都字符字段
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2025/4/3 22:14:00 [显示全部帖子]

去掉msgbox，也是不行，无法实现需求，虽无报错，但无法实现按前缀，编号查询，引入回收编号
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2025/4/7 9:51:00 [显示全部帖子]

需求是订单表的单号，如果回收表有前缀，编号相同，从回收表取值到订单表之后，在回收表删除此号，否则，订单表自动生成单号，
下面实例实现不了，一直只在订单表生成单号，没有利用回表的编号，实例如何改才能实现需求？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:按部门前缀生成编号-1 -问题.zip
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2025/4/7 11:25:00 [显示全部帖子]

打开不实例，请老师贴代码，谢谢

1.从数据库后台取回收表中编号的代码？
2.订单表的新增前检查其后台数据库中与当前是否重复的代码？
[此贴子已经被作者于2025/4/7 11:28:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1474 积分：9904 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2025/4/7 12:10:00 [显示全部帖子]

未升级

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09424 秒, 6 次数据查询