[求助]复制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复制

共有2480人关注过本帖树形打印复制链接主题：[求助]复制

江南小镇

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/11/24 10:07:00 [只看该作者]

老师，按钮每月操作一次，操作过后按钮标题就显示“本月已操作“同时按钮灰化。。

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107705 积分：547852 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/24 10:43:00 [只看该作者]

操作那些数据？

江南小镇

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/11/24 10:45:00 [只看该作者]

把下面的代码拜到按钮里

Dim nma() As String = {"编号","日期_起始","项目名称","分摊费_月","分摊_月","合同编号","凭证名称","凭证号码","项目类别","来源","商品ID" } 'A表数据来源列

Dim nmb() As String = {"编号","日期","项目名称","金额","数量","合同编号","piao据名称","piao据编号","项目类别","来源","商品ID" } 'B表数据接收列

e.DataRow.save

Dim dr2 As DataRow = DataTables("支出明细").Find("编号 = '" & e.DataRow("编号") & "'") '找到指定返回的行

If dr2 Is Nothing Then

dr2 = DataTables("支出明细").AddNew

End If

For i As Integer = 0 To nma.Length - 1

dr2(nmb(i)) = e.DataRow(nma(i))

dr2("单位") = "月"

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107705 积分：547852 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/24 10:55:00 [只看该作者]

Dim nma() As String = {"编号","日期_起始","项目名称","分摊费_月","分摊_月","合同编号","凭证名称","凭证号码","项目类别","来源","商品ID" } 'A表数据来源列

Dim nmb() As String = {"编号","日期","项目名称","金额","数量","合同编号","piao据名称","piao据编号","项目类别","来源","商品ID" } 'B表数据接收列

for each dr as datarow in DataTables("xxx").datarows

Dim dr2 As DataRow = DataTables("支出明细").Find("编号 = '" & dr("编号") & "'") '找到指定返回的行

If dr2 Is Nothing Then

dr2 = DataTables("支出明细").AddNew

End If

For i As Integer = 0 To nma.Length - 1

dr2(nmb(i)) = dr(nma(i))

dr2("单位") = "月"

江南小镇

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1711 积分：11421 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/11/26 22:17:00 [只看该作者]

老师好

此主题相关图片如下：image 1.png

这是老师给的复制代码

Dim nma() As String = {"编号","日期_起始","项目名称","分摊费_月","分摊_月","合同编号","凭证名称","凭证号码","项目类别","来源","商品ID" } 'A表数据来源列
Dim nmb() As String = {"编号","日期","项目名称","金额","数量","合同编号","piao据名称","piao据编号","项目类别","来源","商品ID" } 'B表数据接收列
For Each dr As DataRow In DataTables("费用分摊").datarows
Dim dr2 As DataRow = DataTables("支出").Find("编号 = '" & dr("编号") & "'")             '找到指定返回的行
If dr2 Is Nothing Then
    dr2 = DataTables("支出").AddNew
End If
For i As Integer = 0 To nma.Length - 1
    dr2(nmb(i)) = dr(nma(i))
    dr2("单位") = "月"
Next
Next