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


  共有2419人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
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 [只看该作者]

多谢甜老大

 回到顶部