专家坐堂-[求助]项目事件帮忙看下哪里错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]项目事件帮忙看下哪里错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111565)

--  作者：hualing220
--  发布时间：2017/12/25 10:25:00
--  [求助]项目事件帮忙看下哪里错误

Dim dr As New List(of DataRow)
With DataTables("魔核")
For Each nm As String In .GetValues("产品") \'找出每个产品的第一行数据, 添加到集合dr中
dr.Add(.Find("产品 = \'" & nm & "\'", "[_SortKey]"))
Next
For Each r As DataRow In dr
.DataCols("入库").RaiseDataColChanged(r)
Next
End With

Dim drs As New List(of DataRow)
With DataTables("柯言")
For Each nm As String In .GetValues("产品") \'找出每个产品的第一行数据, 添加到集合drs中
drs.Add(.Find("产品 = \'" & nm & "\'", "[_SortKey]"))
Next
For Each r As DataRow In drs
.DataCols("入库").RaiseDataColChanged(r)
Next
End With

--  作者：有点甜
--  发布时间：2017/12/25 10:44:00
--

代码没问题，报什么错？

截图说明，或者上传具体实例说明。

--  作者：hualing220
--  发布时间：2017/12/25 10:47:00
--

表事件
Select Case e.DataCol.Name
Case "产品","入库","出库"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品] = \'" & mr("产品") & "\'", "[_SortKey] Desc")
If dr Is Nothing Then
mr("库存") = mr("入库") - mr("出库")
dr = mr
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品] = \'" & dr("产品") & "\'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("库存") = drs(i-1)("库存") + drs(i)("入库") - drs(i)("出库")
Next
If e.DataCol.Name = "产品" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品] = \'" & e.OldValue & "\'", "[_SortKey] Desc")
If dr Is Nothing Then
dr = e.DataTable.Find("[产品] = \'" & e.OldValue & "\'", "[_SortKey]")
If dr IsNot Nothing Then
dr("库存") = dr("入库") - dr("出库")
End If
End If
If dr IsNot Nothing Then
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品] = \'" & dr("产品") & "\'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("库存") = drs(i-1)("库存") + drs(i)("入库") - drs(i)("出库")
Next
End If
End If
End Select

没有执行

--  作者：hualing220
--  发布时间：2017/12/25 10:47:00
--
有两个表

--  作者：hualing220
--  发布时间：2017/12/25 11:08:00
--

表事件
Select Case e.DataCol.Name
Case "产品","入库","出库"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品] = \'" & mr("产品") & "\'", "[_SortKey] Desc")
If dr Is Nothing Then
mr("库存") = mr("入库") - mr("出库")
dr = mr
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品] = \'" & dr("产品") & "\'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("库存") = drs(i-1)("库存") + drs(i)("入库") - drs(i)("出库")
Next
If e.DataCol.Name = "产品" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品] = \'" & e.OldValue & "\'", "[_SortKey] Desc")
If dr Is Nothing Then
dr = e.DataTable.Find("[产品] = \'" & e.OldValue & "\'", "[_SortKey]")
If dr IsNot Nothing Then
dr("库存") = dr("入库") - dr("出库")
End If
End If
If dr IsNot Nothing Then
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品] = \'" & dr("产品") & "\'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("库存") = drs(i-1)("库存") + drs(i)("入库") - drs(i)("出库")
Next
End If
End If
End Select

没有执行
我两个表

--  作者：有点甜
--  发布时间：2017/12/25 11:15:00
--

在你datacolchanged事件，加入msgbox，能否弹出提示框？

代码肯定是没问题的，你入库列不要设置成【表达式列】

--  作者：hualing220
--  发布时间：2017/12/25 11:18:00
--
入出库都是数据列库存列不知道显示数值

--  作者：hualing220
--  发布时间：2017/12/25 11:22:00
--
运行SQL 提示IErrorInfo.GetDescription 因 E_FAIL(0x80004005) 而失败。

--  作者：有点甜
--  发布时间：2017/12/25 12:15:00
--

以下是引用hualing220在2017/12/25 11:22:00的发言：
运行SQL 提示IErrorInfo.GetDescription 因 E_FAIL(0x80004005) 而失败。

以下是引用hualing220在2017/12/25 11:18:00的发言：
入出库都是数据列库存列不知道显示数值

实例发上来测试一下。

--  作者：hualing220
--  发布时间：2017/12/25 12:21:00
--
老师帮忙看下附件
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:汪爱国.table