在“销项凭证表”——会计科目 列输入凭证代码，101，102，103（会提示不存在）这样代码都能按预期运行，如果输入下一级代码，如10201之类的，明明有代码，就会提示：
此主题相关图片如下：截图03.png
DataColChanging的代码：
================
output.show("1 " & e.NewValue)
Dim frs As List (of DataRow) = DataTables("科目表").Select("科目代码 like '" & e.NewValue & "*" & "'")
Dim fr As DataRow = DataTables("科目表").find("科目代码 = '" & e.NewValue & "'")
output.show("2 " & e.NewValue)
If frs.Count > 1 Then
MessageBox.Show(e.NewValue & " " & fr("科目名称") & " 不是明细科目")
e.Cancel=True
End If
output.show("3 " & e.NewValue)
If frs.Count = 0 Then
e.cancel=True
MessageBox.Show("未找到科目代码: " & e.NewValue)
End If
=======================================================================
DataColChanged的代码：
================
output.show("4 " & e.NewValue)
Dim fr As DataRow
If e.DataCol.Name = "会计科目" Then
If e.DataRow.IsNull("会计科目") Then
e.DataRow("科目名称") = Nothing
Else
fr = DataTables("科目表").Find("科目代码= '" & e.NewValue & "'")
If fr IsNot Nothing Then
e.DataRow("科目名称") = fr("科目名称")
End If
End If
End If
output.show("5 " & e.NewValue)
==================================================================
科目表的内容：
此主题相关图片如下：截图00.png
需要输入凭证代码的表：
此主题相关图片如下：截图02.png
项目打包：
加好友 
发短信
Post By：2020/2/27 9:42:00 [只看该作者]
