以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样实现帮助中添加添加货品功能  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69634)

--  作者:zqxzhs
--  发布时间:2015/6/8 15:50:00
--  怎样实现帮助中添加添加货品功能


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150608155352.png
图片点击可在新窗口打开查看

1、如何添加一行,增加货品(代码)

2、能否添加最后一行后,自动增加一行,不用“添加货品”按钮

3、在关联表中能否利用下拉窗体输入“货品编号”,“货品名称”,“规格”,“单位”等,

请老师赐教!

[此贴子已经被作者于2015/6/8 15:57:10编辑过]

--  作者:大红袍
--  发布时间:2015/6/8 15:53:00
--  

1、2、 afterEdit事件加入代码

 

If e.Row.Index = e.Table.Rows.Count - 1 Then
    e.Table.AddNew
End If

 

3、也可以,和主表一样那样设计。


--  作者:Bin
--  发布时间:2015/6/8 15:56:00
--  
上传图片参考http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
1.添加一行用 addnew 函数不是很理解你的意思
2.可以在afterEdit事件加入代码
    e.table.addnew


--  作者:zqxzhs
--  发布时间:2015/6/8 16:01:00
--  

在关联表中加入一行,点下拉,双击后,添加不到这行中,代码应该怎样写呢?!

[此贴子已经被作者于2015/6/8 16:01:44编辑过]

--  作者:大红袍
--  发布时间:2015/6/8 16:25:00
--  
以下是引用zqxzhs在2015/6/8 16:01:00的发言:

在关联表中加入一行,点下拉,双击后,添加不到这行中,代码应该怎样写呢?!

[此贴子已经被作者于2015/6/8 16:01:44编辑过]

 

Tables("表A.表B").Current("第一列") = e.Row("第一列")


--  作者:大红袍
--  发布时间:2015/6/8 16:26:00
--  

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

 


--  作者:zqxzhs
--  发布时间:2015/6/8 18:30:00
--  
我还是没有解决,我是想在Tables("窗口1_Table1")添加明细商品,编号,商品名称,型号,单价通过下拉输入,绑定商品表后,看不到下拉控件了,用...,可以打开下拉窗体,选择商品编号后双击,添加不进去,我不知道我的代码哪里错了

--  作者:大红袍
--  发布时间:2015/6/8 19:25:00
--  

 双击事件的代码你怎样写?别人怎么知道你哪里错啊。

 

 要不你上传你做的项目上来看

[此贴子已经被作者于2015/6/8 19:25:40编辑过]

--  作者:zqxzhs
--  发布时间:2015/6/8 19:41:00
--  
Dim tbl As Table = Tables("窗口2_Table1")
If tbl.Current IsNot Nothing Then
    Tables("会员消费明细表").Current("产品编号") = tbl.Current("商品编号")
    Tables("会员消费明细表").Current("产品名称") = tbl.Current("商品名称")
    Tables("会员消费明细表").Current("单价") = tbl.Current("进价")
   
   
   
End If
Forms("窗口2").Close()

--  作者:zqxzhs
--  发布时间:2015/6/8 19:42:00
--  

我不会写到关联表中