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


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

主题：[求助]手工编码填充数据
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 代码不应该放到datacolchanged里
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询