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

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

共有2103人关注过本帖树形打印复制链接主题：后台查询数据问题！

fczhaobo

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

加好友

发短信

等级：小狐帖子：394 积分：4047 威望：0 精华：0 注册：2017/3/24 15:10:00

后台查询数据问题！ 发帖心情

Post By：2017/6/8 17:22: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

有问题吗？老是没有找到呢？？数据决对有啊，并且试过好几个了，都不行！

lzzhx

小大 2楼 | 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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107881 积分：548774 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/8 17:46:00 [只看该作者]

合成表达式http://www.foxtable.com/webhelp/scr/1284.htm

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

主题：后台查询数据问题！