[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有2339人关注过本帖树形打印复制链接主题：[求助]

Rhonin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：142 积分：1115 威望：0 精华：0 注册：2017/4/21 9:36:00

[求助]

Post By：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 & "'")

现在就是代码写不明白

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：142 积分：1115 威望：0 精华：0 注册：2017/4/21 9:36:00

Post By：2017/10/13 11:43:00 [只看该作者]

多谢甜老大

下一主题 >> << 上一主题

主题：[求助]