以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  自定义录入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26642)

--  作者:gzyt
--  发布时间:2012/12/10 23:48:00
--  自定义录入
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.zip

请教老师,我想在自定义录入三中,添加一个编辑按钮,在窗口的CurrentChanged中,加了一些命令,想定位产品表,但如果厂家为空的话,就不能定位。不知怎样解决,请指教,谢谢!
--  作者:sloyy
--  发布时间:2012/12/11 0:48:00
--  
没明白
--  作者:sloyy
--  发布时间:2012/12/11 1:02:00
--  
如果你是想做编辑窗 ,建议你看看 快速入门
--  作者:blackzhu
--  发布时间:2012/12/11 7:56:00
--  

Dim dr As DataRow = e.Table.Current.DataRow
Dim
wz As Integer = Tables("A").FindRow(dr)
If
wz >=0 Then
      Tables(
"
A").Position = wz
End
If


看看这个 自己修改下.


--  作者:lin_hailun
--  发布时间:2012/12/11 8:50:00
--  
 不明白你的意思,看是不是这样。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


--  作者:gzyt
--  发布时间:2012/12/11 9:25:00
--  
5楼是正解,居然就是一个END IF的位置问题,受教了,也感谢其他几位,这么帮忙,非常感谢!