Tables("产品编辑_Table7").Fill("S elect * From {工序库明细主表} where 物料编码 = '" & cur & "'","shenchan" ,False)
Tables("产品编辑_Table7").SetColVisibleWidth("物料编码|60|部件|80|规格|60|部件数|50|编码|70|图纸信息|80|技术标准|80")
Tables("产品编辑_Table7").AllowAddNew = True
Tables("产品编辑_Table7").AllowDelete = True
Tables("产品编辑_Table7").AllowEdit = True
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
piv.BindingField = "产品编辑_Table7.图纸资料"
Dim ftp As New FTPClient
Ftp.Host = "11111111"
Ftp.Account = "1111"
Ftp.Password = "11111"
piv.FTPclient = ftp
以上代码在窗口 afterload 设置后， PictureViewer1的增加等按钮点不动。 管理按钮可以。
加好友 
发短信
Post By：2017/2/19 16:36:00 [只看该作者]
