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
老师，我建了一个表，要实现，输入 一个费用名称，假如 费用名称 中有的 字，则在 这个新建表中 取正确的 简码 值，如果一个字 在新建表中都没有，则通过函数取值，现在红色部分 这段代码一直写不成功，请老师帮忙
加好友 
发短信
Post By：2019/11/8 10:41:00 [只看该作者]
