Foxtable(狐表)用户栏目专家坐堂 → 后台查询数据问题!


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

主题:后台查询数据问题!

帅哥哟,离线,有人找我吗?
lzzhx
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:995 积分:6712 威望:0 精华:0 注册:2015/1/12 22:12:00
  发帖心情 Post By:2017/6/8 17:27:00 [显示全部帖子]

用下面代码试一试

Dim xx As WinForm.ComboBox = e.Form.Controls("学校")
Dim xyfxmc As  String
xyfxmc = xx.Value
Dim fxbh As WinForm.TextBox = e.Form.Controls("学校编号")
Dim dr As DataRow
dr = DataTables("分校").SQLFind("分校名称 = '" &  xyfxmc  & "'")

If dr Is Nothing Then
    msgbox("没找到")
Else
    fxbh.Text= dr("分校编号")
MessageBox.show(dr("分校编号"))
End If


 回到顶部