如题
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编辑过]
加好友 
发短信
Post By：2014/5/1 21:22:00 [只看该作者]
