扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
首先打开数据源，然后使用alter table语句即可，具体范例如下：
创新互联主要从事成都网站设计、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务定陶,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
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
添加项: ComboBox1.Items.Add("123")
直接赋值: ComboBox1.Text = "123"
======================
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 10
ComboBox1.Items.Add("添加项：" i)
ComboBox2.Items.Add("添加项：" i)
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex
End Sub
被变量赋值不会引发一个事件的。
你可以在紧跟给变量的赋值语句后面，用IF语句进行判断的啊？
比如：
MyValue = Val(InputBox("输入一个值："))
if MyValue =0 then
Msgbox("你输入的是0")
......
End If
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网