Foxtable(狐表)用户栏目专家坐堂 → [求助]将CheckedListBox选定的值保存到列


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

主题:[求助]将CheckedListBox选定的值保存到列

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


加好友 发短信
等级:婴狐 帖子:33 积分:306 威望:0 精华:0 注册:2013/11/25 16:45:00
[求助]将CheckedListBox选定的值保存到列  发帖心情 Post By:2013/11/30 19:49:00 [只看该作者]

 

这是一个用窗体给表A录入数据的,打开窗体,选定CheckedListBox的值,开始在右边表中录入数据,能不能将已勾选的CheckedListBox的值

 

自动保存到表A第一列中(级别),每次都重复的录入级别很不方便,或者是表中不显示“级别”列,只录后面2列内容,点保存时,自动将勾选的值和录入的内容保存在一起。

 

求专家帮忙。


图片点击可在新窗口打开查看此主题相关图片如下:求解.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:六尾狐 帖子:1198 积分:7859 威望:0 精华:0 注册:2013/5/17 14:26:00
  发帖心情 Post By:2013/11/30 20:26:00 [只看该作者]

用户已经被屏蔽

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


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

 可以,你做个例子发上来。

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


加好友 发短信
等级:婴狐 帖子:33 积分:306 威望:0 精华:0 注册:2013/11/25 16:45:00
  发帖心情 Post By:2013/11/30 20:57:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:33 积分:306 威望:0 精华:0 注册:2013/11/25 16:45:00
  发帖心情 Post By:2013/12/2 20:31:00 [只看该作者]

狐狸爸爸 快来支招

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


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

 请不上例子,不解释。需要编写一下简单代码,涉及至少两个事件,好几段代码。

 不然自己按下软件的帮助F1自己先看一下。

 

 
[此贴子已经被作者于2013-12-2 20:41:01编辑过]

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


加好友 发短信
等级:婴狐 帖子:33 积分:306 威望:0 精华:0 注册:2013/11/25 16:45:00
  发帖心情 Post By:2013/12/2 23:08:00 [只看该作者]

若大的论坛 回帖的稀少 再等待中慢慢的逝去

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


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

在这个事件设置代码:

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

 

代码为:

 

Dim s As String
Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each Index As Integer In l.CheckedIndices
    If s > "" Then
        s = s & ","
    End If
     s = s &  & l.Items(Index)
Next
Tables("表名").Current("级别") = s

 

人家有点甜让你做个例子,直接帮你写好,你都不愿意,这样好的人,你去哪里找呢?

问题回复的质量和速度,多数是后取决于你提问的质量,有的时候,也有必要配合一下想帮你的人。

[此贴子已经被作者于2013-12-3 10:56:47编辑过]

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


加好友 发短信
等级:婴狐 帖子:33 积分:306 威望:0 精华:0 注册:2013/11/25 16:45:00
  发帖心情 Post By:2013/12/3 11:06:00 [只看该作者]

谢谢 出差呢 用手机上 没法弄.table

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


加好友 发短信
等级:婴狐 帖子:33 积分:306 威望:0 精华:0 注册:2013/11/25 16:45:00
  发帖心情 Post By:2013/12/3 11:46:00 [只看该作者]

狐狸爸爸: s = s &  & l.Items(Index) 报错了

 回到顶部
总数 21 1 2 3 下一页