以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 窗口中的表条件加载  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127994)
--  作者：mirco
--  发布时间：2018/11/26 20:14:00
--  [求助] 窗口中的表条件加载

老师，我想订单明细窗口中的表条件加载，加载订单明细窗口中的订单编号的行，以下怎么更改，谢谢！

 

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("订单").GetComboListString("订单编号")

Dim xuhao As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If Tables("订单").Current IsNot Nothing Then
    xuhao.Text = Tables("订单").Current("订单编号")
End If
Dim A As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim B As String

Tables("订单明细_Table1").Filter = "订单编号 = \'& A &\'"
--  作者：有点蓝
--  发布时间：2018/11/26 20:28:00
--  
Tables("订单明细_Table1").Filter = "订单编号 = \'" & A.text & "\'"