- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 在窗体控件文本框中输入了多行文字，怎么在表格中去显示多值字段呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131999)
-- 发布时间：2019/3/11 15:35:00
-- 在窗体控件文本框中输入了多行文字，怎么在表格中去显示多值字段呢？
在窗体控件文本框中输入了多行文字，怎么在表格中去显示多值字段呢？
下拉选项输入框绑定的字段和表中对应的下拉选项是同一个字段
想实现效果如图：
此主题相关图片如下：1.png
此主题相关图片如下：1.png-- 发布时间：2019/3/11 16:06:00
--
dataparse事件处理一下
http://www.foxtable.com/webhelp/scr/0738.htm
e.Value = e.text.replace(vbcrlf, ",")
dataformat也处理一下，如
e.Value = e.text.replace(",", vbcrlf)
-- 发布时间：2019/3/11 16:15:00
-- 回复：（有点甜）dataparse事件处理一下 htt...
谢谢有点甜老师
按照你的指导
在窗体组件属性中去操作了
实现效果如下：
此主题相关图片如下：2.png
-- 发布时间：2019/3/11 16:30:00
-- 回复：（有点甜）dataparse事件处理一下?htt...
按照方法解决之后，在调用这个多值字段值时，无法在组合框中去显示值了，值显示了第一个值，继续求解中！
此主题相关图片如下：3.png
窗体enter代码如下：
If e.Sender.Gettype.name = "ComboBox" AndAlso e.Sender.BindingField > "" Then
Dim ary() As String = e.Sender.BindingField.Split(".")
Dim filter As String = "表名 = \'" & ary(0) & "\' and 列名 = \'" & ary(1) & "\' and 停用 = false"
Dim fdr As DataRow = DataTables("列项设置").Find(filter)
If fdr IsNot Nothing Then
e.sender.ComboList = fdr("下拉选项")
End If
End If
If e.Sender.Gettype.name = "CheckedComboBox" AndAlso e.Sender.BindingField > "" Then
Dim ary() As String = e.Sender.BindingField.Split(".")
Dim filter As String = "表名 = \'" & ary(0) & "\' and 列名 = \'" & ary(1) & "\' and 停用 = false"
Dim fdr As DataRow = DataTables("列项设置").Find(filter)
If fdr IsNot Nothing Then
e.sender.ComboList = fdr("下拉选项")
End If
End If
[此贴子已经被作者于2019/3/11 16:33:55编辑过]
-- 发布时间：2019/3/11 16:57:00
--
改成
e.sender.ComboList = fdr("下拉选项").replace(",", "|")