- 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=97349)
-- 发布时间：2017/3/10 11:55:00
-- [求助][求助]表的数据提取
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
我想将报销表的数据提到成本表里面，信息为自动更新的，成本表的数据有一部分是从报销表里面提取出来的，有一部分是自己填写的，能不能在每次更新数据的时候行不要打乱，
现在我写到一部分就写不出来了，麻烦专家帮我看看，谢谢
[此贴子已经被作者于2017/3/10 11:55:54编辑过]
-- 发布时间：2017/3/10 12:05:00
--
你的需求是什么？说明白。或者用图来说来。或加我QQ468163809
-- 发布时间：2017/3/10 13:39:00
-- 回复：（wyz20130512）你的需求是什么？说明白。或者用...
就像是一个统计表，把报销表的数据提取到成本表，以日期，单位和类别进行分类统计，其中分类从排变为列去了，报销类别将横排转换为竖排，填写到对应的列里面去
[此贴子已经被作者于2017/3/10 13:40:16编辑过]
-- 发布时间：2017/3/10 15:08:00
--
报销表，DataColChanged事件
Select Case e.DataCol.Name
Case "报销时间","发票单位","金额"
If e.DataRow.IsNull("报销时间") = False AndAlso e.DataRow.IsNull("发票单位") = False Then
Dim dr As DataRow = DataTables("成本表").Find("时间=#" & e.DataRow("报销时间") & "# And 所属=\'" & e.DataRow("发票单位") & "\'")
If dr Is Nothing Then
dr = DataTables("成本表").AddNew
dr("时间") = e.DataRow("报销时间")
dr("所属") = e.DataRow("发票单位")
End If
dr(e.DataRow("报销类别_Ⅰ")) = e.DataTable.Compute("Sum(金额)","报销时间=#" & e.DataRow("报销时间") & "# And 发票单位=\'" & e.DataRow("发票单位") & "\' and 报销类别_Ⅰ=\'" & e.DataRow("报销类别_Ⅰ") & "\'")
End If
End Select
-- 发布时间：2017/3/10 17:58:00
-- 回复：（有点蓝）报销表，DataColChanged事件Select C...
提示
调用的目标发生了异常。
无法将类型为“System.String”的对象强制转换为类型“System.String[]”。
这个是怎么回事儿呢
-- 发布时间：2017/3/10 20:05:00
--
上面的代码不会有这种错误，把你改过的代码发上来
-- 发布时间：2017/3/11 8:58:00
-- 回复：（有点蓝）上面的代码不会有这种错误，把你改过...
是另一个表有段代码，冲突了，现在删除后没事了，谢谢