以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  添加到选定的行  (http://www.foxtable.com/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
--  
如果把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
--  发布时间：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 业务往来_方式=\'订单\'")