Foxtable(狐表)用户栏目专家坐堂 → 自动复制行问题


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

主题:自动复制行问题

帅哥哟,离线,有人找我吗?
yan2006l
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
  发帖心情 Post By:2013/10/22 1:58:00 [显示全部帖子]

你再增加一个辅助列得了:逻辑列“已复制”。然后代码加一点点进去:

if e.DataRow("已复制") = false then

e.DataRow("已复制") = true

   

    If e.DataCol.Name = "逻辑列名" AndAlso e.DataRow("逻辑列名") = True Then
    Dim nma() As String = {"A1","A2","A3","A4"}
'A表数据来源列
    Dim nmb() As String = {"B1"
,"B2","B3","B4"} 'B表数据接收列
    Dim dr As DataRow = DataTables("表B"
).AddNew
   
For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
   
Next
    End
If

 

end if


 回到顶部