今天有人问我VB,速度求解.

发布网友 发布时间：2024-10-23 21:21

我来回答

共3个回答

热心网友 时间：2024-11-01 08:09

Do While Not EOF(1) 是什么意思
当1号文件没有结束的时候，循环执行这里到loop之间的语句

for input as #1
将文件作为输入打开，命名为1号文件

If Check1.Value = 1 Then
如果check1被钩上

Adodc1.RecordSource = "delete * from main_zsdj"
adodc1的结果集是 "delete * from main_zsdj"

Adodc1.Refresh
执行刚才的adodc1.recordsource，就是 "delete * from main_zsdj"

热心网友 时间：2024-11-01 08:07

Adodc1.Refresh一般只在ADodc改变连接对像时才使用
一般添加修改好像不可以加
连续快速添加会使添加内容出错,这个可以试试在Adodc1.Recordset.UpdateBatch后加入一个
DoEvents
或者直接控制输入按钮的可用状态,等待添加完成后才进行下一次操作
Private Sub Command2_Click()
Command2.enabled=0
Adodc1.Recordset.MoveLast
Text6.Text = Adodc1.Recordset.Fields(0) + 1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value = Text6.Text
Adodc1.Recordset.Fields(1).Value = Text5.Text
Adodc1.Recordset.UpdateBatch
DoEvents
Command2.enabled=1
Text5.Text = Text5.Text + 1
End Sub

热心网友 时间：2024-11-01 08:04

只是普通语句、和我们平时讲的设X=什么什么来着、就是了、