科目表目录_TreeView科目表_NodeMouseClick
Dim dr As DataRow = DataTables("科目表").find("科目代码='" & e.Node.name & "'") '获取生成此节点的DataRow
If dr IsNot Nothing Then
e.Form.DropDownBox.Value = dr("科目代码") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
e.Form.DropDownBox.CloseDropdown()
Tables("凭证").Current("科目名称") = dr("科目名称")
Dim pattern As String = "[^\u4e00-\u9fa5\\]"
Tables("凭证").Current("第四列") = System.Text.RegularExpressions.Regex.Replace(e.Node.FullPath, pattern ,"") '输出2列
End If
加好友 
发短信
Post By：2020/1/19 11:28:00 [显示全部帖子]
