Foxtable(狐表) → 用户栏目 → 专家坐堂 → 拼音简码取值


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

主题：拼音简码取值
帅哥哟，离线，有人找我吗？
outcat
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		拼音简码取值  发帖心情 Post By：2019/11/8 10:41:00 [只看该作者]

If e.DataCol.Name = "费用名称" Then
            If e.DataRow.IsNull("费用名称") Then
                e.DataRow("简码")=Nothing
            Else
                Dim dr As DataRow
                dr = DataTables("多音字简码").sqlFind("[多音字] = '" & e.NewValue & "'" )
                If dr IsNot Nothing Then
                    Dim r As String
                    Dim r1 As Row = Tables("费用明细表").Current("费用名称")
                    If r1> "" AndAlso r1.Contains("r") Then
                        r1("简码")= dr("简码")
                    Else
                        e.DataRow("简码")=GetPy(e.NewValue,True)
                    End If
                End If
            End If
        End If

老师，我建了一个表，要实现，输入 一个费用名称，假如 费用名称 中有的 字，则在 这个新建表中 取正确的  简码 值，如果一个字 在新建表中都没有，则通过函数取值，现在红色部分 这段代码一直写不成功，请老师帮忙
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/8 10:56:00 [只看该作者]

If e.DataRow.IsNull("费用名称") Then
    e.DataRow("简码")=Nothing
Else
    Dim dr As DataRow
    dr = DataTables("多音字简码").sqlFind("[多音字] = '" & e.NewValue & "'" )
    If dr IsNot Nothing Then
        e.DataRow("简码")= dr("简码")
    Else
        e.DataRow("简码")=GetPy(e.NewValue,True)
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2019/11/8 11:09:00 [只看该作者]

老师，我不是要这个结果，这个结果我刚开始的代码就是这样写的，可现在情况时，我这个 多音字简码  表 收集的是 一个一个的字，比如  青 门  餐，这样生成的简码 是错误的，我把生成错误 的字的简码 手动填入这个表的，希望下次用的时候，再遇到这个字，从这个新建表中取 正确的简码

这个情况只能是 输入 青 门 餐 这样一个字的时候，是从新建表中取得值，可比如  输入 一个  餐饮费   这样 就不从 新建表中取值了，生成的 简码就错了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/8 11:16:00 [只看该作者]

没看懂。表数据截图举例详细说明一下

 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2019/11/8 11:42:00 [只看该作者]

不好意义，不能上传附件了，我手动给你弄吧

多音字简码表

1、多音字  简码
青        Q
清    Q
菜        C

 2、正确的例子  

费用类别    蔬菜
费用名称     青
简码           Q

3、错误的例子
费用类别    蔬菜
费用名称     青菜
简码           RB

当输入的名称是一个字的时候，从新建表中取值正确， 但当输入具体的名称时又不是 一个字，这样在新建表中就找不到了，然后生成了一个错误的值
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/8 13:34:00 [只看该作者]

换种方式使用：http://www.foxtable.com/webhelp/topics/3279.htm

Output.Show(PY.GetPY("青菜",True,3))
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06445 秒, 4 次数据查询