- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 狐表能够实现这样的功能吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43430)
-- 发布时间：2013/12/6 18:32:00
-- 狐表能够实现这样的功能吗？
狐表能不能实现这样的功能？ 当产品来源选择自产时 下方跳出组件信息 ，当选择外购时 跳出工厂报价界面。。 感觉好像不行啊
此主题相关图片如下：qq图片20131206182846.jpg
此主题相关图片如下：qq图片20131206182859.jpg
-- 发布时间：2013/12/6 19:00:00
--
可以，而且其实很简单，不就是选择某个控件后，切换TabControl的页面吗。
在控件的Enter事件写代码。
切换页面：
http://www.foxtable.com/help/topics/2383.htm
-- 发布时间：2013/12/6 21:08:00
--
Dim b As WinForm.TabControl = e.Form.Controls("TabControl1")
Select Case e.Sender.SelectedText
Case "自产"
b.SelectedIndex=0
Case "外购"
b.SelectedIndex=1
End Select
测试不成功
-- 发布时间：2013/12/6 21:17:00
--
改成这样
Dim b As WinForm.TabControl = e.Form.Controls("TabControl1")
Select Case e.Sender.Text
Case "自产"
b.SelectedIndex=0
Case "外购"
b.SelectedIndex=1
End Select
Select Case e.Sender.Text
Case "自产"
b.SelectedIndex=0
Case "外购"
b.SelectedIndex=1
End Select
-- 发布时间：2013/12/6 21:52:00
--
当我选中 包含子件信息的时候 子件BOM表可以编辑 否则的话不可编辑 怎么写代码呢？
此主题相关图片如下：qq图片20131206215115.jpg
-- 发布时间：2013/12/6 21:58:00
--
狐爸 甜甜 bin 都睡觉了？？
-- 发布时间：2013/12/6 22:00:00
--
直接设置不就行了？
Tables("xxxx").AllowEdit = true
-- 发布时间：2013/12/6 22:04:00
--
no no no 试验出来了
If e.Sender.Checked=True Then
Tables("子件BOM").AllowEdit=True
Else
Tables("子件BOM").AllowEdit=False
End If
-- 发布时间：2013/12/6 22:06:00
--
你表控件设置成 副本了吧？副本是原表的一个拷贝，需要这样写
If e.Sender.Checked=True Then
Tables("窗口名_表控件名").AllowEdit=True
Else
Tables("窗口名_表控件名").AllowEdit=False
Else
Tables("窗口名_表控件名").AllowEdit=False
End If