标题：执行后失效

1楼

lin98 发表于：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

上面执行后失效，如何改？

2楼

有点蓝 发表于：2025/4/3 15:17:00

如果Find查询没有结果，说明

1、要查询的数据没有加载

2、没有符合查询条件的数据

3楼

lin98 发表于：2025/4/3 15:30:00

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

4楼

lin98 发表于：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编辑过]

5楼

有点蓝 发表于：2025/4/3 16:14:00

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

6楼

lin98 发表于：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编辑过]

7楼

有点蓝 发表于：2025/4/3 16:58:00

msgbox("前缀 is not null and 表名='订单表' and [编号] = '" & e.DataRow("编号") & "'") 显示什么内容

8楼

lin98 发表于：2025/4/3 17:13:00

此主题相关图片如下：编号.jpg

9楼

有点蓝 发表于：2025/4/3 17:17:00

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

10楼

lin98 发表于：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”的转换无效。

输入字符串的格式不正确。

前缀，编号都字符字段

共13 条记录, 每页显示 10 条, 页签: [1] [2]