Foxtable(狐表)用户栏目专家坐堂 → 在窗体控件文本框中输入了多行文字,怎么在表格中去显示多值字段呢?


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

主题:在窗体控件文本框中输入了多行文字,怎么在表格中去显示多值字段呢?

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
在窗体控件文本框中输入了多行文字,怎么在表格中去显示多值字段呢?  发帖心情 Post By:2019/3/11 15:35:00 [显示全部帖子]

在窗体控件文本框中输入了多行文字,怎么在表格中去显示多值字段呢?
下拉选项输入框绑定的字段和表中对应的下拉选项是同一个字段
想实现效果如图:

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


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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)dataparse事件处理一下 htt...  发帖心情 Post By:2019/3/11 16:15:00 [显示全部帖子]

谢谢有点甜老师
按照你的指导
在窗体组件属性中去操作了
实现效果如下:

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

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)dataparse事件处理一下?htt...  发帖心情 Post By:2019/3/11 16:30:00 [显示全部帖子]

按照方法解决之后,在调用这个多值字段值时,无法在组合框中去显示值了,值显示了第一个值,继续求解中!


图片点击可在新窗口打开查看此主题相关图片如下: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编辑过]

 回到顶部