在下拉菜单的SelectionChangeCommitted事件中调用Button2_Click
创新互联专业为企业提供云州网站建设、云州做网站、云州网站设计、云州网站制作等企业网站建设、网页设计与制作、云州企业网站模板建站服务，10年云州做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
Private Sub 选择列名ComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles 病情ComboBox.SelectionChangeCommitted
Button2_Click(sender, e)
End Sub
我不是很懂你的意思，如果你要用combox里的数据那就在and like之间加个
选择列名ComboBox.text
不就得了
Then str = str " and " 选择列名ComboBox.text " like '%" TextBox6.Text
vb或C#都是服务端语言，而是否获到焦点只有浏览器端，也就是客户端才知道，要靠JS才可以完成这个操作，所以VB或C#是不可能直接实现向文本框赋值这个操作的。你可以通过Ajax方式来实现，由JS找到取得焦点的文本框，并异步向后台取到需要的值，写入到这个文本框里。
首先打开数据源，然后使用alter table语句即可，具体范例如下：
Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconstr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" 数据库路径及文件名 ""cn.Open constrDim str As Stringstr = "alter table 表名 add 字段 类型"rs.Open str, cn, adOpenStaticmsgbox"添加字段成功",vbokonly
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles _
RadioButton2.CheckedChanged, _
RadioButton1.CheckedChanged'8个radiobutton全加上
If CType(sender, RadioButton).Checked Then TextBox4.Text = CType(sender, RadioButton).Text
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged, TextBox3.TextChanged, TextBox4.TextChanged
TextBox1.Text = TextBox2.Text TextBox3.Text TextBox4.Text
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox3.Text = ComboBox1.Text
End Sub
你这个Text()()是一个二维数组？
将数字直接定义成text box类型，并将己所添加的textbox实例复制给数组的相关项，这样就能通过数组的形式访问了。。。
DataGridViewCellStyle方法不通用，区域性设置太麻烦了。
以下是程序方法：
可以先将数据源放入一张表中，不要直接绑定。新表是可以改string的。
那个列必须是string，不能是single
代码写在cellendedit的过程中，每次用户退出单元格编辑后引发
dim a1 as single
dim a2 as string
Try
a1=csng(当前单元格值)
Catch ex As Exception
MessageBox.Show("输入条件不符合要求！", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
if a11 then
a2=formate(a1,"0.0000")
else
....
endif
完事后a2赋值给当前单元格即可。
