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编辑过]