Foxtable(狐表)用户栏目专家坐堂 → 关于用控件给表输入内容


  共有7554人关注过本帖树形打印复制链接

主题:关于用控件给表输入内容

帅哥哟,离线,有人找我吗?
周挺
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:15 积分:187 威望:0 精华:0 注册:2013/2/25 0:40:00
关于用控件给表输入内容  发帖心情 Post By:2013/2/25 23:20:00 [只看该作者]

怎么通过给控件输入内容,按添加按钮自动给表插入一行并输入控件中的内容啊?

顺序是 先在控件输入内容  按添加  然后表中自动添加一行相关内容

最好举个例子,谢谢啦!!


 回到顶部
帅哥哟,离线,有人找我吗?
秋叶蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:86 积分:777 威望:0 精华:0 注册:2013/1/2 17:23:00
  发帖心情 Post By:2013/2/25 23:40:00 [只看该作者]

例如 "窗口1"有个文本框 "textbox1" 你输入内容后,点按钮"添加" 后添加刚才所填内容到新建的行.将以下代码放到按钮的click事件中
dim s as sting
dim dr as datarow
s = Forms("窗口1").Controls("textbox1").value
dr = datatables("表名").addnew()
dr("列名") = s

大概的思路就这样吧
本人也是新手,还是看帮助文件,抄帮助文件里面的代码练习的阶段,图片点击可在新窗口打开查看

[此贴子已经被作者于2013-2-25 23:40:35编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/2/26 8:23:00 [只看该作者]

直接用绑定就可以啊,你看看这个例子:

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
周挺
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:15 积分:187 威望:0 精华:0 注册:2013/2/25 0:40:00
  发帖心情 Post By:2013/2/26 20:32:00 [只看该作者]

以下是引用秋叶蓝在2013-2-25 23:40:00的发言:
例如 "窗口1"有个文本框 "textbox1" 你输入内容后,点按钮"添加" 后添加刚才所填内容到新建的行.将以下代码放到按钮的click事件中
dim s as sting
dim dr as datarow
s = Forms("窗口1").Controls("textbox1").value
dr = datatables("表名").addnew()
dr("列名") = s

大概的思路就这样吧
本人也是新手,还是看帮助文件,抄帮助文件里面的代码练习的阶段,图片点击可在新窗口打开查看

[此贴子已经被作者于2013-2-25 23:40:35编辑过]


 回到顶部
美女呀,离线,留言给我吧!
msysun
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:4 积分:133 威望:0 精华:0 注册:2013/7/30 11:08:00
  发帖心情 Post By:2013/8/26 21:11:00 [只看该作者]

如果是在窗体中的表格,还可以用这个例子吗?我试了,但双击后不能读取选定行的数据在窗口中显示

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/8/26 21:35:00 [只看该作者]

以下是引用msysun在2013-8-26 21:11:00的发言:
如果是在窗体中的表格,还可以用这个例子吗?我试了,但双击后不能读取选定行的数据在窗口中显示


双击行事件要注意,要要将窗口设置成不可编辑,才能响应双击事件。

3、然后将订单明细表的PrepareEdit事件代码设置为:

If e.Table.Name = "订单.订单明细" Then
    e.Cancel =
True

End If

4、最后将订单明细表的DoubleClick事件代码设置为:

If e.Table.Name = "订单.订单明细" Then
   Forms("窗口1").Open()

End
If


 回到顶部
美女呀,离线,留言给我吧!
msysun
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:4 积分:133 威望:0 精华:0 注册:2013/7/30 11:08:00
  发帖心情 Post By:2013/8/29 13:41:00 [只看该作者]

这个是主表上双击的代码吧,我现在想实现双击在窗口中的副表,将单元格的内容直接显示在对应的textbox中,textbox已绑定对应的列,在主表可以中操作没问题,在副表中不行,高手能帮忙解决下吗?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/29 14:15:00 [只看该作者]

副本表也有对应的事件.

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/8/29 16:14:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
msysun
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:4 积分:133 威望:0 精华:0 注册:2013/7/30 11:08:00
  发帖心情 Post By:2013/8/29 16:30:00 [只看该作者]

试了没有问题,可以操作,谢谢!!!

 回到顶部