以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107953)

--  作者：Rhonin --  发布时间：2017/10/13 10:40:00 --  [求助] 已知某条信息（地区名称），获取该条信息所在行，（该信息在表中是唯一的） 从该行中获取指定列（地区编码）的值s1 在表中指定列(上级编码)中以s1作为筛选条件 combobox的combolist显示筛选出来的数据 Dim cmb As WinForm.ComboBox = e.Sender Dim s1 As String = e.Form.Controls("ComboBox1").Value Dim r As Row = Tables("行政区划").Current r("地区名称") = s1         \'获取combobox1的值所在行 cmb.ComboList = DataTables("行政区划").GetComboListString("地区名称", "上级编码 = \'" & str & "\'") 现在就是代码写不明白

--  作者：有点甜 --  发布时间：2017/10/13 10:45:00 --   Dim cmb As WinForm.ComboBox = e.Sender Dim s1 As String = e.Form.Controls("ComboBox1").Value Dim fdr As DataRow = DataTables("行政区划").Find("地区名称 = \'" & s1 & "\'") If fdr IsNot Nothing Then     cmb.ComboList = DataTables("行政区划").GetComboListString("地区名称", "上级编码 = \'" & fdr("地区编码") & "\'") Else     cmb.ComboList = "" End If

--  作者：Rhonin --  发布时间：2017/10/13 11:43:00 --   多谢甜老大