主题：窗口录入

老师，我设计了一个表，其中有一列为“辅助核算”，辅助核算有5种，我想把这5种辅助核算都放在一个单元格。这个辅助核算我通过设计窗口录入，这个录入窗口里有5个DropDownBox控件，每个DropDownBox控件设计了下拉窗口和绑定对应的表（每个表都不同）。现在有几个问题请教：

1、http://www.foxtable.com/webhelp/scr/0642.htm

 

2、http://www.foxtable.com/webhelp/scr/2142.htm

 

3、http://www.foxtable.com/webhelp/scr/2400.htm

 

谢谢老师，不过还有个问题，就是一个录入窗口中有5个DropDownBox控件，虽然每个DropDownBox控件都对应了各自的下拉窗口，但在实际录入时，录入其中一个，其他所有的5个DropDownBox控件的值都一并填充了，值都是一样的，请问老师这是咋回事呢？？

绑定对应的值都是一样的，没设置好

 

dropdownbox不要绑定表列，你选择值以后，最后关闭窗口的时候，读取各个控件的值，组合起来，赋值给单元格。

嗯，确实是绑定的问题，但是，5个DropDownBox控件的值都要填到同一个表的同一单元格，所以5个DropDownBox控件的都绑定到了同一单元格，要把5个DropDownBox控件的值（不同）都填在一个单元格，该怎么绑定呢？？

比如DropDownBox1的值是张三，DropDownBox2的值是ABC、DropDownBox3的值是123等，都绑定到A表的“辅助核算”列，如果都录入了，要求结果为1/张三；2/ABC；3/123

老师，这个对我有点难度，能麻烦您贴一下代码么？谢谢！！

 

Dim d1 = e.Form.Controls("DropBox1")

Dim d2 = e.Form.Controls("DropBox2")

Dim str as string = ""

If d1.text > "" Then

    str &= "1/" & d1.text & ";"

End If

If d2.text > "" Then

    str &= "2/" & d2.text & ";"

End If

 

msgbox(str)

tables("表A").current("第一列") = str.trim(";")

谢谢老师的无私指导，实在太感谢！！