#前言
敲完之后,忘了是谁问我修改信息的怎么弄的?我仔细想了想,自己没有弄这个呀!于是又开始了一个command的奋斗,但是自己一点思路都没有,在csdn找,只有组合查询的问题,难道大家都会这个吗?还是都没有发现呢!
后来问的日子,找到了思路。
#正文
##步骤
首先这个功能是修改查到的表格的信息,在学生基本信息维护的窗体中。
查询的一串信息中,选中要修改的信息。
此时出现一个新的窗体
在这里修改即可
##代码:
在学生基本信息维护窗体的修改command中
If tmpselect = True Then
TmpCardno = myFlexGrid.TextMatrix(myFlexGrid.RowSel, 0) '选择一行数据
frmmodifystu.Show '显示修改信息窗体 '显示修改信息窗体
Else
MsgBox "请先选择数据,再进行修改!", , "温馨提示"
Exit Sub
End If
同时,在学生信息维护窗体添加一个sub过程
Private Sub myFlexGrid_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
tmpselect = True
End Sub
然后是新建的窗体,即修改窗体代码:
Private Sub Command1_Click()
Dim txtsql As String
Dim msgtext As String
Dim mrc As ADODB.Recordset
txtsql = "select * from student_Info where cardno='" & Trim(TmpCardno) & "'"
Set mrc = executeSQL(txtsql, msgtext)
If Not (mrc.BOF Or mrc.EOF) Then
mrc.Fields(0) = Trim(txtCardno.Text)
mrc.Fields(1) = Trim(txtstuno.Text)
mrc.Fields(2) = Trim(txtName.Text)
mrc.Fields(3) = Trim(Combogender.Text)
mrc.Fields(4) = Trim(txtMajor.Text)
mrc.Fields(5) = Trim(txtGrade.Text)
mrc.Fields(6) = Trim(txtClass.Text)
mrc.Fields(7) = Trim(txtMoney.Text)
mrc.Fields(8) = Trim(txtOther.Text)
mrc.Fields(10) = Trim(txtState.Text)
mrc.Fields(14) = Trim(ComboType.Text)
mrc.Update
mrc.Close
End If
Me.Hide
'修改信息后,重新加载到基本信息维护窗体的查询结果中
frmstucare.cmdOK.Value = True
End Sub
Public Sub tmpLoad()
Dim txtsql As String
Dim msgtext As String
Dim mrc As ADODB.Recordset
txtsql = "select * from student_Info where cardno='" & Trim(TmpCardno) & "'"
Set mrc = executeSQL(txtsql, msgtext)
If mrc.EOF Then
MsgBox "加载信息不存在,请确认后重新操作!", , "温馨提示"
Else
txtstuno.Text = mrc!studentNo
txtName.Text = mrc!studentName
Combogender.Text = mrc!sex
txtMajor.Text = mrc!department
txtGrade.Text = mrc!grade
txtClass.Text = mrc!Class
txtCardno.Text = mrc!cardno
txtMoney.Text = mrc!cash
txtState.Text = mrc!Status
txtOther.Text = mrc!explain
ComboType.Text = mrc!Type
mrc.Close
End If
End Sub
谁有更好的方法欢迎提出!