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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]代码问题

共有7013人关注过本帖树形打印复制链接主题：[原创]代码问题

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

[原创]代码问题 发帖心情

Post By：2014/8/5 13:42:00 [只看该作者]

请老师帮个忙，下面是菜单代码，我是想通过菜单点击复制部分列到另外一张表，比如选择”ZJJHB“的某一行后，点击”生成资金申请表“，然后将选择的行的代码列出的列内容复制到”ZJSQB“，然后修改补充数据后保存就形成完整的行。执行后提示红色部分代码有错：谢谢！！

If User.IsRole("录入人") Then

For Each r As Row In Tables("ZJJHB").GetCheckedRows

Dim nma("ZJJHB") As String = { "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" } 'A表数据来源列

Dim nmb("ZJSQB") As String = { "KSBM","KSMC","XMBM","XMMC","ZJJHBH","HT1","JSGLDW","HT3","HT4" } 'B表数据接收列

Dim dr As DataRow = DataTables("ZJSQB").AddNew

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

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

Else

MessageBox.show("你没有复制数据的权限!")

End If

[此贴子已经被作者于2014-8-5 13:52:34编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/5 14:03:00 [只看该作者]

For Each r As Row In Tables("ZJJHB").GetCheckedRows
    Dim nma() As String = { "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" } 'A表数据来源列
    Dim nmb() As String = { "KSBM","KSMC","XMBM","XMMC","ZJJHBH","HT1","JSGLDW","HT3","HT4" } 'B表数据接收列
    Dim dr As DataRow = DataTables("ZJSQB").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = r(nma(i))
    Next
Next

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/5 14:18:00 [只看该作者]

Dim nma As String = { "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" } 'A表数据来源列

Dim nmb As String = { "KSBM","KSMC","XMBM","XMMC","ZJJHBH","HT1","JSGLDW","HT3","HT4" } 'B表数据接收列

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 14:52:00 [只看该作者]

谢谢老师，还有个问题，小写转大写的代码是什么，，比如A列是小写，在B列自动转为大写金额，请老师编制一下，谢谢

[此贴子已经被作者于2014-8-5 14:52:33编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/5 14:55:00 [只看该作者]

参考，转一下即可。

http://www.foxtable.com/help/topics/1345.htm

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 15:04:00 [只看该作者]

老师，我在同表只需复制部分列的内容，下面代码怎么改呢？？

For Each r As Row In Tables("ZJJHB").GetCheckedRows

If User.IsRole("录入人") Then

Syscmd.Row.Clone()

Else

MessageBox.show("你没有复制数据的权限!")

End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/5 15:05:00 [只看该作者]

If User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows
        Dim nma() As String = { "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" } 'A表数据来源列
        Dim nmb() As String = { "KSBM","KSMC","XMBM","XMMC","ZJJHBH","HT1","JSGLDW","HT3","HT4" } 'B表数据接收列
        Dim dr As DataRow = DataTables("ZJSQB").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = r(nma(i))
        Next
    Next
Else
    MessageBox.show("你没有复制数据的权限!")
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/5 15:06:00 [只看该作者]

同表也一样写，表名改一下即可。

爱相随

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

加好友

发短信

等级：四尾狐帖子：932 积分：6531 威望：0 精华：0 注册：2014/6/25 10:48:00

Post By：2014/8/5 15:29:00 [只看该作者]

谢谢老师，还有，如果我要记录次数，比如对同一记录复制的次数达3次时，进行提示或限制，代码怎么加呢？？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/5 15:33:00 [只看该作者]

以下是引用爱相随在2014-8-5 15:29:00的发言：
谢谢老师，还有，如果我要记录次数，比如对同一记录复制的次数达3次时，进行提示或限制，代码怎么加呢？？

加入一列次数,用于统计被复制的次数

If User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows
        Dim nma() As String = { "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" } 'A表数据来源列
        Dim nmb() As String = { "KSBM","KSMC","XMBM","XMMC","ZJJHBH","HT1","JSGLDW","HT3","HT4" } 'B表数据接收列
        Dim dr As DataRow = DataTables("ZJSQB").AddNew

        If r("次数") < 3 Then
            r("次数") += 1
            For i As Integer = 0 To nma.Length - 1
                dr(nmb(i)) = r(nma(i))
            Next
        Else
            msgbox("超出次数")
        End If
    Next
Else
    MessageBox.show("你没有复制数据的权限!")
End If

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

总数 40 1 2 3 4 下一页

主题：[原创]代码问题