If Forms("w_make").Opened Then '如果窗口已经打开
If e.Table.current IsNot Nothing Then
Dim dr As DataRow = e.Table.Current.DataRow
For Each ftb As WinForm.Table In Forms("w_make").controls '遍历窗体中的表,窗体中有五个副本表,要随正本表的行联动。
If ftb.Table.Name="w_make_table_gule" 'table_gule为副本表
If ftb.Table.Current IsNot Nothing Then
Dim wz As Integer = ftb.Table.FindRow(dr)
If wz >=0 Then
ftb.Table.Position=wz
End If
End If
End If
Next
End If
End If
上面的代码错在哪里呢?可以运行,总是有弹出提示窗。
我的附件总是上传不了。为什么?
谢谢