以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助，重新调用表行数据打印piao据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91501)
--  作者：zhang_yugang
--  发布时间：2016/10/12 11:13:00
--  求助，重新调用表行数据打印piao据
Dim r As Row = CurrentTable.Current
If r.Locked = True Then
Forms("最新单").Open()
With Forms("最新单")
.Controls("jjkh").Text = r("发件客户")
.Controls("jjdw").Text = r("发件单位")
.Controls("jjss").Text = r("发件省市")
.Controls("jjdz").Text = r("发件地址")
.Controls("jjdh").Text = r("发件电话")
.Controls("sjkh").Text = r("收件客户")
.Controls("sjdw").Text = r("收件单位")
.Controls("sjss").Text = r("收件省市")
.Controls("sjdz").Text = r("收件地址")
.Controls("sjdh").Text = r("收件电话")
.Controls("dz").Text = r("大字")
End With
End If

各位大神们，我这代码有什么不妥吗？
--  作者：zhang_yugang
--  发布时间：2016/10/12 11:14:00
--  
打开的窗体控件中显示不了表行中的数据。
--  作者：有点蓝
--  发布时间：2016/10/12 11:34:00
--  
模式窗口？

1、代码改改放到窗口afterload事件