Foxtable(狐表)用户栏目专家坐堂 → 如何对字符进行判断?


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

主题:如何对字符进行判断?

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


加好友 发短信
等级:童狐 帖子:212 积分:1564 威望:0 精华:0 注册:2011/7/20 21:00:00
如何对字符进行判断?  发帖心情 Post By:2011/8/3 17:34:00 [只看该作者]

If e.DataCol.Name = "拼音码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("项目类别") = Nothing
    Else
        Dim lb As DataRow
        lb = DataTables("收费项目").Find("[拼音码] = '" & e.NewValue & "'")
        If lb IsNot Nothing Then
            e.DataRow("项目类别") = lb("项目类别")
            e.DataRow("项目名称") = lb("项目名称")
            e.DataRow("sys_药品分类") = lb("药品分类")
            e.DataRow("sys_零差价") = lb("零差价")
            e.DataRow("sys_单位") = lb("单位")
            e.DataRow("sys_单位") = lb("单位")
            e.DataRow("单价") = lb("单价")
        End If
    End If
End If
e.DataRow("合计") = e.DataRow("单价") * e.DataRow("数量")
If e.DataCol.Name = "拼音码" Then
    If e.DataRow.IsNull("拼音码") Then
        e.DataRow("拼音码") = Nothing
    Else
        e.DataRow("拼音码") =e.DataRow("拼音码").split(":")(0)
    End If
End If
If e.DataCol.Name = "医生" Then
    If e.DataRow.IsNull("医生") Then
        e.DataRow("医生") = Nothing        
        If e.DataRow("医生").split(":")(1)IsNot Nothing
            e.DataRow("医生")=e.DataRow("医生").split(":")(1)
        Else
            e.DataRow("医生")=e.DataRow("医生").split(":")(0)
        End If
    End If
End If

在按钮代码进行分离判断太复杂,现在写到表属性事件中,

第一段关于拼音码分离没问题,格式为PYM:拼音码,分离出PYM,英文在前。分离“:”前的。

第二段关于医生有错误,格式为YS:医生,分离出 医生,汉字在后,分离“:”后的。

IF条件要求:

1、该列为空——空

2、该列字符串存在“:”,分离出“:”后的

否则保持原来内容不变。

[此贴子已经被作者于2011-8-3 17:44:41编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/3 17:38:00 [只看该作者]

没看懂,蒙一下:

 

If e.DataCol.Name = "医生" Then
    If e.DataRow.IsNull("医生") Then
        e.DataRow("医生") = Nothing
    Else
        Dim vals() As String =  e.DataRow("医生").split(":")
        If vals.length > 1 Then
            e.DataRow("医生")= vals(1)
        Else
            e.DataRow("医生") = vals(0)
        End If
    End If
End If


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


加好友 发短信
等级:童狐 帖子:212 积分:1564 威望:0 精华:0 注册:2011/7/20 21:00:00
  发帖心情 Post By:2011/8/3 17:59:00 [只看该作者]

老总蒙的真不错,要的正是这个效果。总之是有经验,心有灵犀。

 回到顶部