请使用显式 Convert() 函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2021.12.4.11

错误所在事件：加载[出入库2]失败!

详细错误信息：

运算符“+”对于类型 “System.UInt64” 和 “System.Int32” 的操作数具有多义性。不能将有符号和无符号的类型混合起来。请使用显式 Convert() 函数。

请问这是什么问题？

在 beforeloadoutertable 那里设置是否加载 ”出入库2“，

If e.user.group = "组装"

Select Case e.DataTableName

Case "IL接头任务单","IL接头排产","出入库单总表","接头BOM","接头巴对照表","批号表","批号表2","物料字典","弯头开料单","直身开料单","珠江弯头开料单","珠江直身开料单", "铝巴送货单","接头巴对照表","接头预发料","出入库","出入库2","接头巴送货单","授权表","工位912","JPK612任务单","加工单价","JPK612订单","JP944任务单","铝铜库存表","生产指令","销售单","装配清单","JPK612库存","销售报价","模具清单","供应商报价","部门列表","考勤记录","现场任务单","现场单总表","腾龙供料汇总","接头巴配料"

Case Else

e.cancel =True

End Select

End If

在”设置外部表“那里是”加载所有行“以及”包括所有列“。

Afteropenproject 那里有:

Dim drs2 As New List(of DataRow)

With DataTables("出入库2")

For Each nm As String In .GetValues("物料编号") '找出每个物料编号的第一行数据, 添加到集合drs中

Dim dr11 As DataRow = DataTables("出入库2").Find("物料编号 = '" & nm & "'", "[_SortKey]")

If dr11 IsNot Nothing

' drs.Add(.Find("物料编号 = '" & nm & "'", "[_SortKey]"))

drs.Add(dr11)

End If

For Each r As DataRow In drs

.DataCols("出入库数量").RaiseDataColChanged(r) '重置每个产品的第一行

End With

与加载有关的就上面这些了，其他代码（见附页）似乎与加载无关。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:eventcode.rar

If e.DataCol.name = "入库数量" OrElse e.DataCol.name = "出库数量"

e.DataRow("出入库数量") = e.DataRow("出库数量") + e.DataRow("入库数量")

If e.DataRow("出入库单号") <> "删除记录" AndAlso e.DataRow("类别") <> "组装" AndAlso e.DataRow("类别") <> "装配" AndAlso e.DataRow("类别") <> "配件" Then

'批号表2自动更新数据

Dim re As Boolean = False

For Each dr As DataRow In DataTables("批号表2").Select("物料编号='" & e.DataRow("物料编号") & "' and 仓库名称='" & e.DataRow("仓库名称") & "'")

dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量") + dr("库存数量") - e.OldValue

dr("批号变动记录") = "出入库2变动:" & Date.now & " " & User.Name

dr("库存数量变动记录") = "出入库2变动:" & Date.now & " " & User.Name

re = True

If re = False

Dim dr As DataRow

dr = DataTables("批号表2").AddNew()

dr("物料编号") = e.DataRow("物料编号")

dr("物料名称") = e.DataRow("物料名称")

dr("类别") = e.DataRow("类别")

dr("仓库名称") = e.DataRow("仓库名称")

dr("来源") = e.DataRow("来源")

dr("客户简称") = e.DataRow("客户")

dr("库存数量") = e.DataRow("入库数量") + e.DataRow("出库数量")

dr("批号变动记录") = "出入库2变动:" & Date.now & " " & User.Name

dr("库存数量变动记录") = "出入库2变动:" & Date.now & " " & User.Name

End If

'2018/8/15增加此句,自动删除批号表2里面库存数量=0的数据行

DataTables("批号表2").deletefor("库存数量 = 0")

DataTables("批号表2").save

End If

我觉得上面这段”|出入库2“这个数据表之 datacolchanged 代码有问题，因为 '批号表2自动更新数据这段代码也不起作用。

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2021.12.4.11

错误所在事件：加载[出入库2]失败!

详细错误信息：

运算符“+”对于类型“System.UInt64”和“System.Int32”的操作数具有多义性。不能将有符号和无符号的类型混合起来。请使用显式 Convert() 函数。

上面的提示是在点击 ”出入库2“ 之加载树时出现的，如果是新登陆系统，不会出现这些提示。

4楼问题找到原因了。

主题：请使用显式 Convert() 函数