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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于点击复制的问题

共有2058人关注过本帖树形打印复制链接主题：关于点击复制的问题

liulovexiu

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

加好友

发短信

等级：婴狐帖子：12 积分：173 威望：0 精华：0 注册：2018/6/3 0:52:00

关于点击复制的问题 发帖心情

Post By：2018/6/5 11:40:00 [只看该作者]

能帮我写个代码吗，研究了大半天都不会。

我想点击表“订单管理” 第一列的图标，窗口弹出一个确定下单和取消的提示窗口，点击确认就把当前行几列的数据复制到表“平开门生产单中”对应的列，并且 “订单管理” 复制的当前行就标注成黄色，

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

下面这个代码是我找人家的，类似于这种形式。

If MessageBox.Show("确定下单?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then

Dim t1 As Table = Tables("订单管理") '指定数据来源

Dim t2 As DataTable = DataTables("平开门生产单") '指定数据接收表

Dim cs1 = "门型,颜色,料型".split(",")

Dim cs2 = "门型,颜色,料型".split(",") '指定数据接收列

For i As Integer = 0 To 10

Dim ndr As DataRow = t2.AddNew

For j As Integer = 0 To cs1.length-1

ndr(cs2(j)) = t1.rows(i)(cs1(j))

End If

但上面的代码是复制10行的数据！

希望大神帮我出格代码

[此贴子已经被作者于2018/6/5 11:40:56编辑过]

有点甜

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

加好友

发短信

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

Post By：2018/6/5 12:11:00 [只看该作者]

If MessageBox.Show("确定下单?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
    Dim t1 As Table = Tables("订单管理") '指定数据来源
    Dim t2 As DataTable = DataTables("平开门生产单") '指定数据接收表
    Dim cs1 = "门型,颜色,料型".split(",")
    Dim cs2 = "门型,颜色,料型".split(",") '指定数据接收列

    Dim ndr As DataRow = t2.AddNew
    For j As Integer = 0 To cs1.length-1
        ndr(cs2(j)) = t1.current(cs1(j))
    Next

End If

liulovexiu

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

加好友

发短信

等级：婴狐帖子：12 积分：173 威望：0 精华：0 注册：2018/6/3 0:52:00

Post By：2018/6/5 12:28:00 [只看该作者]

你好，怎么把本行同时加上颜色呢？

我想点击左侧列的”下单"列的图标执行，应该怎么改？麻烦了

[此贴子已经被作者于2018/6/5 12:31:50编辑过]

有点甜

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

加好友

发短信

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

Post By：2018/6/5 12:31:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/0656.htm

liulovexiu

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

加好友

发短信

等级：婴狐帖子：12 积分：173 威望：0 精华：0 注册：2018/6/3 0:52:00

Post By：2018/6/5 12:43:00 [只看该作者]

我想点击左侧列的”下单"列的图标执行，应该怎么改？麻烦了

liulovexiu

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

加好友

发短信

等级：婴狐帖子：12 积分：173 威望：0 精华：0 注册：2018/6/3 0:52:00

Post By：2018/6/5 13:08:00 [只看该作者]

If e.Col.name = "下单" Then

If MessageBox.Show("确定下单?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then

Dim t1 As Table = Tables("订单管理") '指定数据来源

Dim t2 As DataTable = DataTables("平开门生产单") '指定数据接收表

Dim cs1 = "门型,颜色,料型".split(",")

Dim cs2 = "门型,颜色,料型".split(",") '指定数据接收列

Dim ndr As DataRow = t2.AddNew

For j As Integer = 0 To cs1.length-1

ndr(cs2(j)) = t1.current(cs1(j))

End If

为什么我点击后复制到“平开门生产单”是在倒数第第一行，然后再点击，又增加一行？前面几行都是空的

有点甜

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

加好友

发短信

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

Post By：2018/6/5 14:35:00 [只看该作者]

1、先删除全部空白行；

2、修改代码

If e.Col.name = "下单" Then
    If MessageBox.Show("确定下单?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
        Dim t1 As Table = Tables("订单管理") '指定数据来源
        Dim t2 As DataTable = DataTables("平开门生产单") '指定数据接收表
        Dim cs1 = "订单号,门型,颜色,料型".split(",")
        Dim cs2 = "订单号,门型,颜色,料型".split(",") '指定数据接收列

        Dim ndr As DataRow = t2.find("订单号='" & t1.current("订单号") & "'")
        If ndr Is Nothing Then ndr = t2. AddNew
        For j As Integer = 0 To cs1.length-1
            ndr(cs2(j)) = t1.current(cs1(j))
        Next

    End If
End If

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

主题：关于点击复制的问题