我前面没有说清楚。要求是从没有加载的客户表中取值并填入订单表中:下面的窗口动态目录是从同一表中取值,如何加上从没有加载的表B取值到表A并输入?
在窗口动态目录的1、在窗口的AfterLoad事件中加入代码:
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("型号")
2、在ComboBox2的Enter事件中加入代码:
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As string = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = '" & str & "'")
3、最后在ComboBox3的Enter事件中加入代码:
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox2").Value
cmb.ComboList = DataTables("表A").GetComboListString("颜色", "规格 = '" & str & "'")