Foxtable(狐表)用户栏目专家坐堂 → 单选框录入


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

主题:单选框录入

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


加好友 发短信
等级:幼狐 帖子:66 积分:650 威望:0 精华:0 注册:2008/8/31 22:40:00
单选框录入  发帖心情 Post By:2021/4/2 10:46:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

在数据表中规格列输入数据时通过“规格录入”窗口进行录入,单选框分5组,每组选择一个数值,选择后数值填入下面文本框中,确认后添加数据到规格列,每组数值中可以自行添加输入的其他数值,在输入其他数值的时候其他单选框都不选中。请高人指教
图片点击可在新窗口打开查看此主题相关图片如下:规格录入.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/4/2 12:50:28编辑过]

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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/2 10:50:00 [只看该作者]

checkedchanged事件遍历所有单选框,如果是勾选的就获取标题文字合并为一个字符串,然后给下面的文本框赋值

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


加好友 发短信
等级:幼狐 帖子:66 积分:650 威望:0 精华:0 注册:2008/8/31 22:40:00
  发帖心情 Post By:2021/4/2 12:54:00 [只看该作者]

如果自行输入,就是选择其他的时候怎么搞,另外可以写一下简单的代码么,我参考一下,谢谢

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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/2 13:36:00 [只看该作者]

分组遍历,先遍历宽度里所有的单选框,如果都没有勾选就取其他。

dim s as string
For Each c As WinForm.Control In e.Form.Controls("GroupBox1").Children
    If
 Typeof c Is WinForm.
RadioButton Then '判断控件是否是文本框
        
Dim t As WinForm.
RadioButton = c '使用特定类型的变量引用控件
        if t.checked then
s = t.text
end if
    End
 If
Next
if s ="" then
s = e.Form.Controls("其它1").text
end if

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


加好友 发短信
等级:幼狐 帖子:66 积分:650 威望:0 精华:0 注册:2008/8/31 22:40:00
  发帖心情 Post By:2021/4/2 15:43:00 [只看该作者]

请老师不吝赐教

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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/2 15:59:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 (1).zip


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


加好友 发短信
等级:幼狐 帖子:66 积分:650 威望:0 精华:0 注册:2008/8/31 22:40:00
  发帖心情 Post By:2021/4/2 19:22:00 [只看该作者]

老师,能把实现功能的代码具体写一段么,就是单选框选择或者是其他输入后文本框显示输入的数据,确认后把数据写入到“产品规格列”,刚刚接触狐表没多久,自己没有思路,可以帮助帮助吧

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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/3 9:05:00 [只看该作者]

4楼,6楼都是。什么地方看不懂?

 回到顶部