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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用sql语句改写

共有2727人关注过本帖树形打印复制链接主题：用sql语句改写

riyuan

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

加好友

发短信

等级：小狐帖子：305 积分：2401 威望：0 精华：0 注册：2013/4/9 11:49:00

用sql语句改写 发帖心情

Post By：2014/8/26 10:53:00 [显示全部帖子]

Dim dr As DataRow

Dim zhanghao As String = e.Form.Controls("textbox1").Value

If zhanghao = Nothing Then

MessageBox.Show("请输入您的登录账号!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

DataTables("login").LoadFilter= "[登陆账号] = '" & zhanghao & "'"

DataTables("login").Load

dr = DataTables("login").Find("[登陆账号] = '" & zhanghao & "'")

If dr Is Nothing Then

Messagebox.show("登陆账号不对!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Sender.Text=""

e.Cancel = True

Else

e.Form.Controls("textbox2").value=dr("登陆名")

End If

这段代码用sql语句怎么写

riyuan

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

加好友

发短信

等级：小狐帖子：305 积分：2401 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2014/8/26 11:16:00 [显示全部帖子]

我没有在程序中加载外部表的，我要用sql语句来写。上面的例子都是加载了表的

riyuan

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

加好友

发短信

等级：小狐帖子：305 积分：2401 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2014/8/26 11:32:00 [显示全部帖子]

Dim hh As String

With e.Form

.Controls("textbox1").text=Tables("mm_Table2").current("户号")

.controls("textbox2").text= Tables("mm_Table2").current("姓名")

.Controls("textbox3").text=Tables("mm_Table2").Current("身份证号")

End With

hh=e.Form.Controls("textbox1").text

Dim cmd As New SQLCommand

cmd.C

Dim ld As String

cmd.CommandText = "Select * From {xlh} where 户号 ='" & hh & "'"

If cmd.ExecuteScalar> 0 Then

e.Form.Controls("textbox4").text =" xlh.合作医疗证号"

MessageBox.Show(ld)

Else

Return

End If

这段代码错在哪里， textbox4不级获取到xlh的医疗证号

mm_table2是另一个表的

医疗证号是xlh表中的

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

主题：用sql语句改写