| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]后台查找并赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50216) |
| -- 作者：红颜 -- 发布时间：2014/5/1 21:22:00 -- [求助]后台查找并赋值 如题 Dim S As String = e.Form.Controls("ComboBox1").Value Dim cmd As New SQLCommand Dim dt As DataTable cmd.CommandText = "SELECT Count(*) From {收费明细} Where [病人姓名] = \'"& S &"\'日期 Desc"（最近一个，或最后一个） dt = cmd.ExecuteReader If cmd.ExecuteScalar > 0 Then Forms("门诊收费").Controls("TextBox1").value = dt .性别。。。。（赋值为对应的性别，如何写？） Else Forms("门诊收费").Controls("TextBox1").value = "" End If 从后台查找与ComboBox1相同的姓名，并将对应的性别赋值给TextBox1 cmd.CommandText = "SELECT Count(*) From {收费明细} Where [病人姓名] = \'"& S &"\'"
去掉“日期 Desc”，后是全部计数，如何查找最后1次？ 从后台查找与ComboBox1相同的“病人姓名”，并将该病人对应的“性别”赋值给TextBox1 改写代码如下： Dim S As String = e.Form.Controls("ComboBox1").Value Dim cmd As New SQLCommand cmd.CommandText = "SELECT MAX(编号) From {收费明细} Where [病人姓名] = \'"& S &"\'" （可以查出对应的最大编号） If cmd.ExecuteScalar > 0 Then Forms("门诊收费").Controls("TextBox1").value = cmd.ExecuteScalar Else Forms("门诊收费").Controls("TextBox1").value = "" End If [此贴子已经被作者于2014-5-1 22:41:21编辑过]
|
| -- 作者：有点酸 -- 发布时间：2014/5/2 9:52:00 -- 升级到2014，你可以看看： http://www.foxtable.com/help/topics/2911.htm
|