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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 添加到选定的行

共有2724人关注过本帖树形打印复制链接主题：添加到选定的行

大红袍

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

加好友

发短信

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

Post By：2015/9/13 15:27:00 [显示全部帖子]

Dim t As Table = Tables("企业档案.订单附表")
For i As Integer = t.TopPosition To t.BottomPosition
    Dim dr As Row = t.rows(i)
    dr("退换信息_状态")=e.form.controls("ComboBox1").text
    dr("退换信息_数量")=e.form.controls("NumericComboBox1").text
    dr("退换信息_单号")=e.form.controls("TextBox2").text
    dr("退换信息_原因")=e.form.controls("TextBox1").text
    dr("退换信息_日期")=e.form.controls("DateTimePicker1").text
Next

大红袍

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

加好友

发短信

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

Post By：2015/9/14 19:07:00 [显示全部帖子]

dr("财务_待开piao")=DataTables("订单附表").Compute("sum(订单核算_合计)","绑定号='" & e.DataRow("绑定号") & "' and 收款信息_开piao状态 in ('未开piao','核对中') and 业务往来_方式='订单'")

大红袍

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

加好友

发短信

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

Post By：2015/9/15 20:39:00 [显示全部帖子]

Dim dr As Row = Tables("企业档案.订单附表").addnew
If Tables("企业档案窗口_Table5").Current IsNot Nothing
dr("业务往来_产品型号") = Tables("企业档案窗口_Table5").Current("型号")
Else
dr("订单核算_售价")=e.form.controls("TextBox01").text
End If

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

主题：添加到选定的行