[求助]动态自动生成botton控件。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如题。

比如收货核实（3）,右边自动生成3个botton，

收货核实（4），右边自动生成4个botton。

大小啊，间距都一样。

这个可以做到吗？

此主题相关图片如下：界面.png

我的是talctrol，有不同的page，希望在page1做自动加入的事情。或者有什么更好的办法显示。

下面是我写的固定控件（非自动创建），红色的代码怎么改一下，希望入库单号和预入库单的每一个的入库单号进行比较一下，统计出数量。

Dim shhs As WinForm.Button = e.Form.Controls("收货核实")

Dim sum As Integer

sum = DataTables("预入库单").Compute("count(入库单号)","标志 = false")

shhs.text = "收货核实(" & sum & ")"

Dim rkdh1 As WinForm.Button = e.Form.Controls("入库单号1")

Dim rkdh2 As WinForm.Button = e.Form.Controls("入库单号2")

Dim rkdh3 As WinForm.Button = e.Form.Controls("入库单号3")

Dim rkd As List(of String)

Dim s As String

rkd = DataTables("预入库单").GetValues("入库单号","标志 = false")

Dim n1,n2,n3 As Integer

n1 = Tables("预入库单").Compute("sum(数量)","入库单号 = 'A111'")

n2 = Tables("预入库单").Compute("sum(数量)","入库单号 = 'A222'")

n3 = Tables("预入库单").Compute("sum(数量)","入库单号 = 'A333'")

rkdh1.text = "预入库单号1:" & rkd(0) & "- - -(" & n1 & ")台"

rkdh2.text = "预入库单号2:" & rkd(1) & "- - -(" & n2 & ")台"

rkdh3.text = "预入库单号3:" & rkd(2) & "- - -(" & n3 & ")台"

只显示了预入库单号，没显示全啊。

另外控件的字体大小，样式，背景颜色该怎么控制，比较好看一点。

此主题相关图片如下：3.png

哦。那这种情况下，我要单击某个btn，弹出窗口。forms("扫描入库").open.我需要写到哪里？

打开扫描窗口。有一个button控件，希望label控件的内容和之前的btn控件的内容一样。

Dim yrkdh As WinForm.Button = e.Form.Controls("预入库单号")

yrkdh.text = ????

怎么去判断点击的哪个btn名称？

是扫描窗口的button控件内容和之前点击的btn控件内容一样。

就是单击了某个btn后，打开了扫描窗口，然后扫描窗口有一个botton控件。希望这个button控件的内容和和之前被单击的btn内容一致。

希望显示的是预入库单号1：A111----(100)台。类似的。

此主题相关图片如下：5.png

此主题相关图片如下：6.png

[此贴子已经被作者于2015/11/24 21:02:19编辑过]

主题：[求助]动态自动生成botton控件。