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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 计算和统计

共有3066人关注过本帖树形打印复制链接主题：计算和统计

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/30 15:03:00 [显示全部帖子]

直接把数据复制过来

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

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/30 23:05:00 [显示全部帖子]

以下是引用yuyoufei11在2016/5/30 23:00:00的发言：
红袍大师你给的链接是在列值发生变化后就执行的，我想在我整行数据录入完成后执行代码应该怎么写啊

整行录入完的标志是什么？无法准确判断的。

你可以写一个按钮，或者是加一列逻辑列勾选后复制到表B。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 11:06:00 [显示全部帖子]

If Tables("订单明细").Current("是否订片") = True Then
    Dim nma() As String = {"编号","材质","客户单位"}
    Dim nmb() As String = {"生产单号","纸片材质","纸箱客户"}
    Dim dr As DataRow = DataTables(""纸片整理"").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = Tables("订单明细").Current(nma(i))
    Next
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 14:23:00 [显示全部帖子]

If Tables("订单明细").Current("是否订片") = True Then
    Dim nma() As String = {"编号","材质","客户单位"}
    Dim nmb() As String = {"生产单号","纸片材质","纸箱客户"}
    Dim dr As DataRow = DataTables(""纸片整理"").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nma(i)) = Tables("订单明细").Current(nmb(i))
    Next
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 18:16:00 [显示全部帖子]

弹出值看看是什么

msgbox(htdh.value)

msgbox(htdh.Text)

If htdh.value = "" Then

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 19:30:00 [显示全部帖子]

在你13楼那里加入代码

msgbox(htdh.value)

msgbox(htdh.Text)

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 19:43:00 [显示全部帖子]

那第二段，不可能不执行。上传实例说明。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 20:05:00 [显示全部帖子]

Dim htdh As WinForm.TextBox = e.Form.Controls("合同单号")
'Dim zxdm As WinForm.TextBox = e.Form.Controls("纸箱代码")
'Dim xxms As WinForm.TextBox = e.Form.Controls("箱型描述")
'If htdh.value="" Or zxdm.value="" Or xxms.value=""Then
'Dim ddsl As WinForm.Label = e.Form.Controls("订单数量")

If htdh.value=""Then
    MessageBox.Show("请完善订单信息!","警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
Else

    If MessageBox.Show("是否保存?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = DialogResult.OK Then


        If Tables("订单明细").Current("是否订片") = True Then
            Dim nma() As String = {"编号","材质","客户单位"}
            Dim nmb() As String = {"生产单号","纸片材质","纸箱客户"}
            Dim dr As DataRow = DataTables("纸片整理").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr(nma(i)) = Tables("订单明细").Current(nmb(i))
            Next
        End If
        For Each dt As DataTable In DataTables
            dt.Save()
        Next
        Tables("订单明细").AddNew()
    End If
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 20:43:00 [显示全部帖子]

dr(nmb(i)) = Tables("订单明细").Current(nma(i))

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 20:44:00 [显示全部帖子]

看23楼

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

总数 13 1 2 下一页

主题：计算和统计