主题：[求助]单选按扭切换内容

怎么样用单选按扭来实现每个界面录入不同的数据，比如说我选车床系列填上数据就会录入到车床 的表里。选铣床系列就会录到铣床的表里

！！

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 你的窗口是如何做的？把你的项目发上来看看

 

 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

http://pan.baidu.com/s/1dEDfeG5

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目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

 可以帮忙备注一下以上代码的意思么？

看新增按钮的代码

 

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