Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]手工编码填充数据


  共有4813人关注过本帖树形打印复制链接

主题：[求助]手工编码填充数据
帅哥哟，离线，有人找我吗？
xyd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：31 积分：271 威望：0 精华：0 注册：2013/11/1 14:25:00 		[求助]手工编码填充数据  发帖心情 Post By：2013/11/12 18:07:00 [只看该作者]

有两张表，”股东信息“和”股东明细统计“，想”股东明细统计“直接引用”股东信息“中相同的四列”股东编号“”股东姓名“”联系电话“”身份证号“，将以下代码

Dim Cols1() As String = {"股东编号","股东姓名","联系电话","身份证号"}
Dim Cols2() As String ={"股东编号","股东姓名","联系电话","身份证号"}
For Each dr1 As DataRow In DataTables("股东信息")
    Dim dr2 As DataRow = DataTables("股东明细统计").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

放入”股东明细统计“的DataColChanged中
提示编译错误:"表达式的类型为DataTabe!该类型不是集合类型"

帮忙看一下错在哪?谢谢!
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/11/12 19:54:00 [只看该作者]

Dim Cols1() As String = {"股东编号","股东姓名","联系电话","身份证号"}
Dim Cols2() As String ={"股东编号","股东姓名","联系电话","身份证号"}
For Each dr1 As DataRow In DataTables("股东信息").datarows
    Dim dr2 As DataRow = DataTables("股东明细统计").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
xyd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：31 积分：271 威望：0 精华：0 注册：2013/11/1 14:25:00 		  发帖心情 Post By：2013/11/12 21:15:00 [只看该作者]

代码加了，还是没有数据出来，”股东明细统计“表是空的

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/11/12 21:23:00 [只看该作者]

 你的代码应该做成按钮才对的，因为是添加所用的行进去，而不是单行。

 代码不应该放到datacolchanged里
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/11/12 21:25:00 [只看该作者]

 如果是想引用当前行的数据的话，代码这样写

Dim Cols1() As String = {"股东编号","股东姓名","联系电话","身份证号"}
Dim Cols2() As String ={"股东编号","股东姓名","联系电话","身份证号"}
Dim dr2 As DataRow = DataTables("股东明细统计").AddNew()
For i As Integer = 0 To Cols1.Length -1
    dr2(Cols2(i)) = e.datarow(Cols1(i))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
xyd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：31 积分：271 威望：0 精华：0 注册：2013/11/1 14:25:00 		  发帖心情 Post By：2013/11/12 21:45:00 [只看该作者]

我想将”股东明细统计“做成窗口，打开这个窗口就已经有引用的数据

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/11/12 21:51:00 [只看该作者]

 不明白，如果你做不好，就做一个例子上传上来。

 回到顶部
帅哥哟，离线，有人找我吗？
xyd
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：31 积分：271 威望：0 精华：0 注册：2013/11/1 14:25:00 		  发帖心情 Post By：2013/11/12 22:13:00 [只看该作者]

打开"股东明细统计"表时，统计每个股东"投入股金"、”取回股金“”股金余额“，都不用输入任何项目，直接统计

 回到顶部
帅哥哟，离线，有人找我吗？
xyd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：31 积分：271 威望：0 精华：0 注册：2013/11/1 14:25:00 		  发帖心情 Post By：2013/11/12 22:15:00 [只看该作者]

打开"股东明细统计"表时，统计每个股东"投入股金"、”取回股金“”股金余额“，都不用输入任何项目，直接统计
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目2.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/11/12 22:43:00 [只看该作者]

 用下面这段代码，写到按钮，或者写到项目事件->maintablechanged事件里

Dim dt_s As DataTable = DataTables("股东明细")
Dim dt_d As DataTable = DataTables("股东明细统计")
Dim drs As List(of DataRow) = DataTables("股东信息").Select("股东编号 is not null")

dt_d.DataRows.Clear
For Each dr As DataRow In drs
    Dim ndr As DataRow = dt_d.AddNew
    ndr("股东编号") = dr("股东编号")
    ndr("股东姓名") = dr("股东姓名")
    ndr("联系电话") = dr("联系电话")
    ndr("身份证号") = dr("身份证号")
    ndr("投入股金") = dt_s.Compute("sum(投入股金)", "股东编号 = '" & dr("股东编号") & "'")
    ndr("取回股金") = dt_s.Compute("sum(取回股金)", "股东编号 = '" & dr("股东编号") & "'")
    ndr("股金余额") = ndr("投入股金") - ndr("取回股金")
Next
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询