以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 添加到选定的行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74498) |
|
-- 作者:yangwenghd -- 发布时间: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 -- 发布时间:2015/9/12 14:18:00 -- dr("退换信息_状态")=e.form.controls("ComboBox1").text
这个就可以啊 |
|
-- 作者:yangwenghd -- 发布时间:2015/9/12 16:02:00 -- 不是的 他是自己增加一行在添加到里面, 我是想添加到 企业档案窗口_Table5 鼠标选择的那一行 感谢 感谢 |
|
-- 作者:新福星 -- 发布时间:2015/9/12 16:07:00 --
|
|
-- 作者:Hyphen -- 发布时间:2015/9/12 16:10:00 -- Tables("企业档案窗口_Table5").Current("退换信息_状态") = e.form.controls("ComboBox1").text |
|
-- 作者:yangwenghd -- 发布时间:2015/9/13 15:15:00 -- 可以是复制到鼠标选择的行吗? 感谢 感谢 |
|
-- 作者:大红袍 -- 发布时间: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 |
|
-- 作者:yangwenghd -- 发布时间:2015/9/14 11:50:00 -- 感谢了 |
|
-- 作者:yangwenghd -- 发布时间:2015/9/14 18:58:00 -- 能帮我看看这个吗 dr("财务_待开票")=DataTables("订单附表").Compute("sum(订单核算_合计)","绑定号=\'" & e.DataRow("绑定号") & "\' and 收款信息_开票状态=(\'未开票\') an (\'核对中\') and 业务往来_方式=\'订单\'") 加上 收款信息_开票状态= 核对中的 和
|
|
-- 作者:大红袍 -- 发布时间:2015/9/14 19:07:00 -- dr("财务_待开票")=DataTables("订单附表").Compute("sum(订单核算_合计)","绑定号=\'" & e.DataRow("绑定号") & "\' and 收款信息_开票状态 in (\'未开票\',\'核对中\') and 业务往来_方式=\'订单\'") |