VB 程序注释~~速度要 就几个 麻烦了 分用完了 不好意思

Text1.Text = ""

Text1.SetFocus

Data1.RecordSource = "select * from load where name='" & kk & " '"

Text1.SetFocus

kk = Trim(Text1.Text)

Dim kk As String

Data1.Recordset.AddNew

Data1.Recordset.MoveFirst

Text1.Text = "" //清空数据

Text1.SetFocus //设置焦点

Data1.RecordSource = "select * from load where name='" & kk & " '" //查询语句

Text1.SetFocus //设置焦点

kk = Trim(Text1.Text) //将值赋给kk

Dim kk As String //定义字符串kk

Data1.Recordset.AddNew //添加新记录

Data1.Recordset.MoveFirst //指针移到第一位

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息