专家坐堂-等于子表第一行客户全称列值Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=141403)

--  作者：zhuxinhui
--  发布时间：2019/9/28 11:22:00
--  等于子表第一行客户全称列值
If Tables("购销主表").current("子表行数")= 0 Then
      Dim cmc As WinForm.ComboBox = e.form.Controls("ComboBox1")
      cmc.ComboList = DataTables("销售明细").GetComboListString("客户全称")
Else
      e.form.Controls("ComboBox1").value =5
End If

有个关联表，现在想当关联表子表没有明细时，e.form.Controls("ComboBox1")的值引用销售明细表客户全称列的值进行选择，如果子表已有明细表时，e.form.Controls("ComboBox1")的值就等于子表第一列客户全称列的值，这样才能确保主表引用子表的明细是从相同往来单位引用的，确认往来单位唯一性，e.form.Controls("ComboBox1").value =5这句怎样写才行呢？

--  作者：zhuxinhui
--  发布时间：2019/9/28 11:28:00
--
If Tables("购销主表").current("子表行数")= 0 Then
      Dim cmc As WinForm.ComboBox = e.form.Controls("ComboBox1")
      cmc.ComboList = DataTables("销售明细").GetComboListString("客户全称")
Else
       Dim cmc As WinForm.ComboBox = e.form.Controls("ComboBox1")
      cmc.ComboList = DataTables("购销主表.销售明细").GetComboListString("客户全称")
End If

DataTables("购销主表.销售明细").GetComboListString("客户全称")引用当前子表客户全称列值怎样写

--  作者：有点蓝
--  发布时间：2019/9/28 11:42:00
--
Else
       Dim cmc As WinForm.ComboBox = e.form.Controls("ComboBox1")
      cmc.ComboList = DataTables("销售明细").GetComboListString("客户全称","往来单位=\'" & Tables("购销主表").current("往来单位") & "\'")
End If