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

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

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

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

添加到选定的行 发帖心情

Post By：2015/9/12 12:29:00 [只看该作者]

如果把ComboBox1添加到企业档案窗口_Table5选定的行的退换信息_状态列应该怎么改一下啊兄弟们帮帮忙

Dim dr As Row = Tables("企业档案.订单附表").addnew

'dr("业务往来_产品型号") = Tables("企业档案窗口_Table5").Current("型号")

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

退换信息_数量列在原来的基础上加了后所显示的结果

比如以前退换信息_数量列是 5 现在 NumericComboBox1 是4 点击按钮后就退换信息_数量显示 9

比如我点击了企业档案窗口_Table5 的某行，然后点击按钮，就把 ComboBox1 的内容复制到企业档案窗口_Table5的退换信息_状态列里面感谢感谢

[此贴子已经被作者于2015/9/12 12:32:14编辑过]

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/9/12 14:18:00 [只看该作者]

dr("退换信息_状态")=e.form.controls("ComboBox1").text

这个就可以啊

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2015/9/12 16:02:00 [只看该作者]

不是的他是自己增加一行在添加到里面，我是想添加到企业档案窗口_Table5 鼠标选择的那一行感谢感谢

新福星

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

加好友

发短信

等级：八尾狐帖子：1959 积分：15502 威望：0 精华：0 注册：2011/7/16 20:59:00

Post By：2015/9/12 16:07:00 [只看该作者]

如果把ComboBox1添加到企业档案窗口_Table5选定的行的退换信息_状态列应该怎么改一下啊兄弟们帮帮忙

Dim dr As Row = Tables("企业档案.订单附表"").Current

if dr isnot nothing then

'dr("业务往来_产品型号") = Tables("企业档案窗口_Table5").Current("型号")

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

end if

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/9/12 16:10:00 [只看该作者]

Tables("企业档案窗口_Table5").Current("退换信息_状态") = e.form.controls("ComboBox1").text

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2015/9/13 15:15:00 [只看该作者]

可以是复制到鼠标选择的行吗？感谢感谢

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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