主题：订单明细的控件动态显示？

每张订单的订单明细的产品是不固定的，怎么实现控件如textbox或label动态显示订单明细？

拼接所有订单明细 再显示, 具体请上例子,  描述清楚你想实现的需求,免得浪费功夫出来的结果不是你想要的

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

点击浏览该文件:管理项目152.foxdb

订单10里面有两个产品，订单11里面有三个产品，然后在label里面根据订单显示不同的产品名称等信息， 如果选中订单10，label出现两个，选中订单11，label出现3个

Label显示一个数字2? 还是什么意思? 你窗口都已经显示明细表了? 还要一个Label显示什么? 不明白你的需求

我意思是用控件形式代替明细表

譬如如果订单编号100，里面有两个产品，产品A和产品B, 那么选中订单100的时候，label 就显示产品A和产品B， 订单编号101的订单里面有三个产品，A,B,C，那么选中订单101的时候，控件label就显示 产品A，产品B， 产品C

 呃，你就是想生成多个控件而已。参考下面的代码，比如写到 Afterload事件

 

Dim sl As Double = 10
For Each r As Row In Tables("订单.订单明细").Rows
    Dim lbl As WinForm.Label
    lbl = e.Form.CreateControl("p_lbl" & r.Index, ControlTypeEnum.Label)
    lbl.Text = r("产品名称")
    lbl.Left = sl
    lbl.Top = 100
    sl += lbl.Width + 20
    e.Form.Controls("Panel1").AddControl(lbl)
Next

这个无法随着订单号改变而改变啊

 呃，能不能有点变通？你在那里需要生成，就在那里放下面的代码啊。比如你把代码写到textbox的ValueChanged事件里面去。

 

Dim sl As Double = 10
e.Form.Controls("Panel1").basecontrol.Controls.Clear
For Each r As Row In Tables("订单.订单明细").Rows
    Dim lbl As WinForm.Label
    lbl = e.Form.CreateControl("p_lbl" & r.Index, ControlTypeEnum.Label)
    lbl.Text = r("产品名称")
    lbl.Left = sl
    lbl.Top = 100
    sl += lbl.Width + 20
    e.Form.Controls("Panel1").AddControl(lbl)
Next