以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  赋值代码咨询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73582)
--  作者：cqlistone
--  发布时间：2015/8/22 8:31:00
--  赋值代码咨询

有表A和表B两个表，表A有登录者的姓名列和直接上司列。表B有部门主管姓名列
现在要根据登录者姓名从表A获取直接上司名字赋值到表B的部门主管姓名的当前行中。
下面是代码，为什么不能赋值，是什么错误？

Dim Str1 As String = DataTables("A").GetComboListString("直接上司", "姓名 = \'" & "user.name" & "\'")
Tables("B").current("部门主管姓名") = Str1
--  作者：有点蓝
--  发布时间：2015/8/22 8:36:00
--  
Dim Str1 As String = DataTables("A").GetComboListString("直接上司", "姓名 = \'" & user.name & "\'")
--  作者：cqlistone
--  发布时间：2015/8/22 8:42:00
--  
你好，还是不行
--  作者：有点蓝
--  发布时间：2015/8/22 8:44:00
--  
你输出一下 str1看看是什么
--  作者：有点蓝
--  发布时间：2015/8/22 8:46:00
--  
Dim Str1 As String = DataTables("A").GetComboListString("直接上司", "[姓名] = \'" & user.name & "\'")
--  作者：cqlistone
--  发布时间：2015/8/22 8:53:00
--  
你好，可以了。谢谢