以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 有关User.name  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151127)

--  作者:leoli
--  发布时间:2020/6/15 22:04:00
--  [求助] 有关User.name
老师

以下代码执行后,表A第一列ApprovedBy 会显示登入者的User.name

表B的第一列是 User.nam ,第二列是代码.

如何使表A第一列ApprovedBy显示ser.name相对应的代码.


dr2a ("ApprovedBy") = User.name




--  作者:有点蓝
--  发布时间:2020/6/15 22:23:00
--  
表A,drawcell事件

if e.col.name = "ApprovedBy" then
dim dr as datarow = datatables("表B").find("第一列=\'" &  e.row("ApprovedBy")& "\'")
if dr isnbot nothing then
e.text = dr("第二列")
end if
end if

--  作者:leoli
--  发布时间:2020/6/16 22:11:00
--  
老师,如何转成窗口中的按钮代码,谢谢。
[此贴子已经被作者于2020/6/16 22:10:52编辑过]

--  作者:有点蓝
--  发布时间:2020/6/16 22:15:00
--  
在按钮里只能直接更改单元格的值,没有办法做到不改单元格的值的情况下让单元格显示为其它字符
--  作者:leoli
--  发布时间:2020/6/16 22:18:00
--  
是否在按钮代码中做个判断 :如用户名是A 的话,就写入A 在表B中对应的代码, 如用户名是B的话,就写入B 在表B中对应的代码? 是否可行 ?
--  作者:有点蓝
--  发布时间:2020/6/16 22:29:00
--  
如果要改掉单元格的值肯定可以

dim r as row = tables("表A").current
if r isnot nothing then
dim dr as datarow = datatables("表B").find("第一列=\'" &  r("ApprovedBy") & "\'")
if dr isnbot nothing then
r("ApprovedBy") = dr("第二列")
end if
endif