- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]运算符后缺少操作数（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40011)
-- 发布时间：2013/9/6 14:37:00
-- [求助]运算符后缺少操作数（已解决）
一段TreeView1控件NodeMouseClick事件的代码，保存后点击目录树的节点，跳出错误提示：“运算符后缺少操作数”。应该如何修改代码，请各位老师指教。谢谢！！
Dim dw,bm,xm As String
If e.Node.Level = 2 Then
Dim Value()As String
Value = e.Node.FullPath.Split("\\")
dw = "[单位] = \'" & Value(0) & "\'"
bm = "[部门] = \'" & Value(1) & "\'"
xm = "[姓名] = \'" & Value(2) & "\'"
End If
Dim dr As DataRow
dr = DataTables("用户表").Find("[单位] = \'"& dw &"\' And [部门] = \'"& bm &"\' And [姓名] = \'"& xm &"\'"
If dr IsNot Nothing Then
With Forms("用户资料").Controls("TextBox2")
.Value = dr("姓名")
End With
With Forms("用户资料").Controls("TextBox3")
.Value = dr("单位")
End With
With Forms("用户资料").Controls("TextBox4")
.Value = dr("部门")
End With
With Forms("用户资料").Controls("TextBox5")
.Value = dr("职务")
End With
End If
此主题相关图片如下：i.png
[此贴子已经被作者于2013-9-6 14:48:12编辑过]
-- 发布时间：2013/9/6 14:42:00
--
以下是引用yyzlxc在2013-9-6 14:37:00的发言：
一段TreeView1控件NodeMouseClick事件的代码，保存后点击目录树的节点，跳出错误提示：“运算符后缺少操作数”。应该如何修改代码，请各位老师指教。谢谢！！
一段TreeView1控件NodeMouseClick事件的代码，保存后点击目录树的节点，跳出错误提示：“运算符后缺少操作数”。应该如何修改代码，请各位老师指教。谢谢！！
Dim dw,bm,xm As String
If e.Node.Level = 2 Then
Dim Value()As String
Value = e.Node.FullPath.Split("\\")
dw = "[单位] = \'" & Value(0) & "\'"
bm = "[部门] = \'" & Value(1) & "\'"
xm = "[姓名] = \'" & Value(2) & "\'"
End If
Dim dr As DataRow
dr = DataTables("用户表").Find("[单位] = \'"& dw &"\' And [部门] = \'"& bm &"\' And [姓名] = \'"& xm &"\'"
dw 等 已在上面合成过了
dr = DataTables("用户表").Find(dw &" And " & bm &" And " & xm）
-- 发布时间：2013/9/6 14:48:00
--
谢谢逛逛老师，问题解决，再次衷心感谢！！
-- 发布时间：2014/6/9 23:41:00
--
解决了，是不是分享下经验，大家都有问题就问，解决了就没声儿，是不是渐渐就没人回答了？