以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]这个代码错在哪儿  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97725)
--  作者：baiheinet
--  发布时间：2017/3/17 12:46:00
--  [讨论]这个代码错在哪儿
Dim dr As Row
Select Case Vars("ViewName")
    Case "图纸信息"
        dr("Drw_recorder")=User.Name
    Case "到料信息"
        dr("Delivery_Record")=User.Name
    Case "预组装日报"
        dr("Delivery_Record")=User.Name
    Case "座浆板日报"
        dr("Delivery_Record")=User.Name
    Case "安装日报"
        dr("Delivery_Record")=User.Name
    Case "灌浆日报"
        dr("Delivery_Record")=User.Name
    Case Else
        dr("Delivery_Record")=User.Name
End Select

那个高手解答一下
--  作者：有点色
--  发布时间：2017/3/17 12:48:00
--  

dr没有赋值，你dr是哪个表的哪一行？

 

Dim dr As Row = Tables("表A").Current