- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]引用 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80201)
-- 发布时间：2016/1/18 13:58:00
-- [求助]引用
老师，下面代码有错误码?入库_数量列的数据没有引用到"客户供应商动态数据汇总"表的"入库_数量"列中。
Select Case e.DataCol.Name
Case "客户ID","客户名称","入库_数量","入库_价税合计"
Dim filter As String = "客户 = \'" & e.DataRow("客户名称") & "\' and 客户ID = \'" & e.DataRow("客户ID") & "\'"
If not (e.DataRow.IsNull("客户名称") OrElse e.DataRow.IsNull("客户ID")) Then
Dim fdr As DataRow = DataTables("客户供应商动态数据汇总").Find(filter)
If fdr Is Nothing Then
fdr = DataTables("客户供应商动态数据汇总").AddNew
fdr("客户ID") = e.DataRow("客户ID")
fdr("客户") = e.DataRow("客户名称")
End If
End If
If e.DataCol.Name = "入库_数量" Then
DataTables("客户供应商动态数据汇总").DataCols("客户").RaiseDataColChanged(filter)
Else
DataTables("客户供应商动态数据汇总").DataCols("客户").RaiseDataColChanged()
End If
End Select
-- 发布时间：2016/1/18 14:16:00
--
加入msgbox，看是否执行了对应的代码。
不会调试，就上传具体例子。
-- 发布时间：2016/1/18 15:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:汇总.table |
-- 发布时间：2016/1/18 15:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:汇总.table |