以文本方式查看主题

-  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=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
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:yangg8250
--  发布时间:2017/4/17 16:21:00
--  

加了个面板,还有其他的操作么?


--  作者:yangg8250
--  发布时间:2017/4/17 16:33:00
--  
以下是引用有点色在2017/4/17 11:50:00的发言:
 下载信息  [文件大小:412.0 KB  下载次数:4]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

 

窗口表事件

 

窗口与控件事件

 

产品录入_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