主题：一个窗口控件内容复制到另外一个窗口控件

Dim t As Table = e.Form.Controls("Table1").Table

Dim je As Double = e.Form.Controls("NumericComboBox1").Text

Dim bz As String = e.Form.Controls("TextBox").Text

For Each r as Row in t.Rows

   msgbox(r("名称") & "  " & je & "  " & bz)

Next