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
各位大神们,我这代码有什么不妥吗?