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

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

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

江南小镇

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

加好友

发短信

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

[求助]复制 发帖心情

Post By：2020/11/14 22:11: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("单位") = "月"

江南小镇

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

加好友

发短信

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

Post By：2020/11/16 6:26:00 [显示全部帖子]

老师，下面代码不会写，谢谢老师帮忙啊，谢谢！

判断当前日期如果是1号就执行上面的代码

江南小镇

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

加好友

发短信

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

Post By：2020/11/16 23:16:00 [显示全部帖子]

老师，下面代码报错。

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

江南小镇

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

加好友

发短信

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

Post By：2020/11/19 4:52:00 [显示全部帖子]

老师，计划管理没有e参数怎样修改

'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("单位") = "月"

'Next

江南小镇

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

加好友

发短信

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

Post By：2020/11/24 6:37: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("单位") = "月"

江南小镇

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

加好友

发短信

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

Post By：2020/11/24 10:07:00 [显示全部帖子]

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

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：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("单位") = "月"

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：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

江南小镇

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

加好友

发短信

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

Post By：2020/11/27 20:38:00 [显示全部帖子]

老师，把月份等于当月的时间 dr2("月份") = “当月”

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

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

dr2("单位") = "月"

dr2("月份") = “”

下一主题 >> << 上一主题

主题：[求助]复制