[求助]关于在“数据表”的“单元格”用“自定义项目”和用“窗口”的“组合框”输入的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

教师好。请教教师。关于在“数据表”的“单元格”用“自定义项目”和用“窗口”的“组合框”输入的问题。

1、“表A”的“BBBB”列为“单精度小数”，列属性分别设为“自定义项目设为“50%、100%、150%、200%、300%”、固定小数位数、按百分比格式显示，不允许直接输入”，但点击“单元格下拉框”的任意行时，其值均写不进单元格内；

2、在窗口里设置两个“组合框”ComboBoxr控件，一个绑定“表A”的"AAAA"列、一个绑定“表A”的"BBBB"列，两个控件属性的“自定义项目”均设为“50%、100%、150%、200%、300%”，当点击“下拉框”的任意行时，其值也均写不进单元格内；

3、为了能在数据表中用自定义项目来输入，将“表A”的“AAAA”列设为数值“单精度小数，其列属性也分别设置为“固定小数位数、按百分比格式显示，不允许直接输入"，使用数据字典，将数据字典的“数据”和“显示值”分别设为“0.5，1，1.5，2，3”和“50%、100%、150%、200%、300”。这样是能选择也能输入值，但选择50%时输入的是“0”，选择150%时输入的是200%。其余正常。

测试实例：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.rar

请教教师：1、“问题3”的问题原因和如何解决。

2、要想在窗口里用“组合框”来输入“百分比”数据，怎样才能解决现在输不进去的问题。

谢谢。

如果你需要这样的显示和这样的输入，你必须把你的列类型改成【字符列】才行的。否则，那你只能自己做一个下拉显示窗口

http://www.foxtable.com/webhelp/scr/2099.htm

老师好。改为“字符列”，是能实现用“自定义项目”来输入或显示，但“字符列”能参与计算不。

[此贴子已经被作者于2019/4/8 13:51:30编辑过]

以下是引用hanzhang98在2019/4/8 13:51:00的发言：
老师好。改为“字符列”，是能实现用“自定义项目”来输入或显示，但“字符列”能参与计算不。

[此贴子已经被作者于2019/4/8 13:51:30编辑过]

可以参与计算，引用字符列的时候，要转换成数值计算，如

http://www.foxtable.com/webhelp/scr/1514.htm

教师好。这句加入转换函数的表达式不对，请老师帮助指正。

IIF([计资方式]='按月',0,[日资]*[加班天数]*(Val([加班计发比例])))

需要将“50%、100%、150%、200%、300%”转换为“50、100、150、200、300”。

[此贴子已经被作者于2019/4/8 14:35:24编辑过]

老师好。这句表达式【[岗位工资]/21.75】原来能运行，计算也正确。但现在不能运行了。请老师指正。谢谢。

用表达式计算没办法。必须写代码计算，如

http://www.foxtable.com/webhelp/scr/1469.htm

谢谢老师指导。下面的代码想实现的功能是：在点击“组合框”时，下拉表显示的是“一月份、二月份、......、十二月份”，选择后写入的是相对应的“01、02、03、......、12”，但现在出现在下拉框的是“0、1、2、......、11”，点击也能写入。另外，还想实现“组合框”默认为当前的“月份（比如默认为现在的“04“”）。请老师帮助，谢谢。

Dim 月B As WinForm.ComboBox = e.form.controls("ComboBox4_Qjy")

Dim yf(11) As String

yf(0)= "一月份"

yf(1)= "二月份"

yf(2)= "三月份"

yf(3)= "四月份"

yf(4)= "五月份"

yf(5)= "六月份"

yf(6)= "七月份"

yf(7)= "八月份"

yf(8)= "九月份"

yf(9)= "十月份"

yf(10)= "十一月份"

yf(11)= "十二月份"

For i As Integer = 0 To 11

月B.Items.Add(i)

Dim cbx As WinForm.ComboBox = e.form.controls("ComboBox4_Qjy")
cbx.ComboList = "一月份|二月份|三月份"
cbx.text = "04"

选择的时候，SelectedIndexChanged事件，写代码

e.Sender.text = format(e.Sender.SelectedIndex+1, "00")

谢谢老师。

[此贴子已经被作者于2019/4/8 17:04:56编辑过]

主题：[求助]关于在“数据表”的“单元格”用“自定义项目”和用“窗口”的“组合框”输入的问题