剑三怎么移到固态里:关于VB代码的一些问题

来源：百度文库 编辑：高校问答 时间：2024/04/28 21:45:10
Private Sub Combo1_DropDown()
Dim mrc1 As ADODB.Recordset
Dim i
Dim txtSQL1 As String
Dim Msgtext As String
txtSQL1 = "select * from 转院登记"
Set mrc1 = ExecuteSQL(txtSQL1, Msgtext)
mrc1.MoveLast
Combo1.Clear
i = mrc1.Fields(0).Value + 1
Combo1.AddItem (i)
End Sub
这段代码中的i = mrc1.Fields(0).Value + 1是什么意思,特别是"+1"

Private Sub Combo2_LostFocus()
Dim mrc1 As ADODB.Recordset
Dim txtSQL1 As String
If Combo2.Text <> "" Then
Dim Msgtext As String
txtSQL1 = "select * from 住院登记 where 住院号=" + Combo2.Text
Set mrc1 = ExecuteSQL(txtSQL1, Msgtext)
Text1.Text = mrc1.Fields(1).Value
Text2.Text = mrc1.Fields(2).Value
Text3.Text = mrc1.Fields(3).Value
End If
End Sub
这个里面的每行都翻译一下

你加100分，再提这个问题，会有很多人帮你回答的。

关于VB代码的一些问题 关于VB的代码问题 关于VB的一些问题 VB代码的问题 关于VB的一些小问题 关于VB JAVA ASP的一些问题 关于VB的一些问题,紧急!! vb关于文件夹的一些问题 谁知道一些有关VB代码问题 请教一些关于QQ代码的问题