1,216
社区成员
发帖
与我相关
我的任务
分享
If xhText.Text = "" Then Exit Sub
OperateAccessDb "Select * From zfxhb Where xh_zxbzjl='" & xhText.Text & "'", 1
If redset.RecordCount > 0 Then
mdText.Text = redset.Fields("mdh_zxbzjl")
Else
Exit Sub
End If
OperateAccessDb "Insert into zxbzjl Select * From zfxhb Where xh_zxbzjl='" & xhText.Text & "'", 0
If OperateDbNoError = 1 Then
OperateAccessDb "Update zxbzjl Set sfsc_zxbzjl='0' Where xh_zxbzjl='" & xhText.Text & "'", 0
OperateAccessDb "Update mdb Set hjxs_mdb=hjxs_mdb + 1 Where mdh_mdb='" & mdText.Text & "'", 0
OperateAccessDb "Delete * From zfxhb Where xh_zxbzjl='" & xhText.Text & "'", 0
xhzfCmd.Enabled = False
xhhfCmd.Enabled = False
Adodc1.Refresh
Sleep 500 '多次试验必需要有延时500MS左右,然后再执行一次 ADODC1.Refresh DataGrid才更新
Adodc1.Refresh