8.Grid1的EnterCell事件,控制Combo1在Grid1中出现的位置。
Private Sub Grid1_EnterCell()
Combo1(Grid1.Col).Visible = True
Combo1(Grid1.Col).Left = Grid1.Left + Grid1.CellLeft
Combo1(Grid1.Col).Top = Grid1.Top + Grid1.CellTop
Combo1(Grid1.Col).ZOrder 0
End Sub
9.Grid1的LeaveCell事件
实现将Combo1中的文本内容添加到Grid1相应的单元格中。
Private Sub Grid1_LeaveCell()
If Grid1.Row > 0 Then
Grid1.Text = Combo1(Grid1.Col).Text
If Grid1.Text = "True" Then
Grid1.Text = "1"
ElseIf Grid1.Text = "False" Then
Grid1.Text = "0"
End If
Combo1(Grid1.Col).Visible = False
End If
End Sub
四、验证
为验证以上程序功能,建立一个实验数据库CX.mdb,在此数据库中添加一个表STUDENT_TBL,结构如表1所示。
表1 STUDENT_TBL表结构
字段名 |
字段数据类型 |
主键 |
说明 |
STUID |
Varchar(12) |
Yes |
学生编号 |
STUname |
Varchar(50) |
|
学生姓名 |
STUsorce |
Varchar(20) |
|
课程 |
STUchive |
Varchar(50) |
|
成绩 |
然后向表中输入几条合理的数据,如表2所示。
表2 数据录入
学生编号 |
学生姓名 |
课程 |
成绩 |
200201050401 |
刘强 |
VB |
80.5 |
200201050402 |
李飞 |
VB |
95 |
200201050403 |
刘立 |
VC++ |
65 |
注意,在验证程序功能时,除了以上内容外,还要在代码中更改constr、strsql、strdemand、strtable的值。实现代码如下。
constr字符串,用于编程者根据所使用的数据库不同(如Access、SQL Server),来修改成不同的连接字符串,本例中以cx.mdb为例:
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cx.mdb;Persist Security Info=False"
|