如何实现刷新
XgyhC.Execute "insert user_Infor (user_ID,user_Name,user_PWD,user_DES) values ('" & txtUserName.Text & "','" & txtPassword.Text & "','" & txtPasswordy.Text & "','" & ComboJs.Text & "')"
If MsgBox("添加成功!", , "提示信息") = vbOK Then
Mshflexgrid.refresh
End If
结果不起作用,如何作呢?
XgyhC.Execute "insert user_Infor (user_ID,user_Name,user_PWD,user_DES) values ('" & txtUserName.Text & "','" & txtPassword.Text & "','" & txtPasswordy.Text & "','" & ComboJs.Text & "')"
If MsgBox("添加成功!", , "提示信息") = vbOK Then
Mshflexgrid.refresh
End If
结果不起作用,如何作呢?
OR
SET MSHFLEXGRID.DATASOURCE=数据源
再 REFRESH
如果是循环写入的话。
mshflexgrid.ROWS=mshflexgrid.ROWS+1
把新加入的内容一一写入新的行即可。