以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]单选按扭切换内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99314) |
||||
-- 作者:yangg8250 -- 发布时间:2017/4/17 11:25:00 -- [求助]单选按扭切换内容 怎么样用单选按扭来实现每个界面录入不同的数据,比如说我选车床系列填上数据就会录入到车床 的表里。选铣床系列就会录到铣床的表里 !!
|
||||
-- 作者:有点色 -- 发布时间:2017/4/17 11:27:00 -- 你的窗口是如何做的?把你的项目发上来看看
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
|
||||
-- 作者:yangg8250 -- 发布时间:2017/4/17 11:38:00 -- http://pan.baidu.com/s/1dEDfeG5 |
||||
-- 作者:有点色 -- 发布时间:2017/4/17 11:50:00 --
|
||||
-- 作者:yangg8250 -- 发布时间:2017/4/17 16:21:00 -- 加了个面板,还有其他的操作么? |
||||
-- 作者:yangg8250 -- 发布时间:2017/4/17 16:33:00 --
窗口表事件
窗口与控件事件
产品录入_Button1_Click
Dim p As WinForm.Panel = e.Form.Controls("panel1") Dim t As Table For Each c As object In p.Children If c.checked Then t = Tables(c.text) Exit For End If Next If t Is Nothing Then msgbox("请选择表")
Else Dim nr As Row = t.addnew nr("厂家") = e.Form.controls("combobox1").Text nr("产品类型") = e.Form.controls("combobox8").Text End If
产品录入_Button2_Click
With Tables("车床系列") .Position = .Position - 1 End With
产品录入_Button3_Click
With Tables("车床系列") .Position = .Position + 1 End With
产品录入_Button4_Click
DataTables.Save()
产品录入_Button5_Click
Tables("车床系列").Current.Delete 可以帮忙备注一下以上代码的意思么? |
||||
-- 作者:有点色 -- 发布时间:2017/4/17 16:38:00 -- 看新增按钮的代码
Dim p As WinForm.Panel = e.Form.Controls("panel1") Dim t As Table For Each c As object In p.Children If c.checked Then t = Tables(c.text) Exit For End If Next If t Is Nothing Then msgbox("请选择表") Else Dim nr As Row = t.addnew nr("厂家") = e.Form.controls("combobox1").Text nr("产品类型") = e.Form.controls("combobox8").Text End If |