|
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"
|
