奇怪的事情,应该是bug吧?

cat54 2003-08-22 10:52:52
我做了一个控件名为uc1,里面用timer 控件控制函数
readpic
定义如下

Private Sub readpic()
Dim bt(0) As Byte
Dim dap As New SqlDataAdapter("select * from manonline where snp='2'", con)
‘con为sqlserverconnection,已经打开

Dim ds As New DataSet()
ds.Clear()
dap.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
If ds.Tables(0).Rows.Count > 0 Then
Dim com As New SqlCommand("update manonline set snp='0'where snp='2'", con)
com.ExecuteNonQuery()
Button2.Text = "canreadpic"
End If
Next

End Sub

在调用控件的form1里面将会看到,如果没有
Dim com As New SqlCommand("update manonline set snp='0'where snp='2'", con)
com.ExecuteNonQuery()
那么button2.text就能够变化,反之如果有以上两句就不会变化。
真是奇怪啊
...全文
68 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
cat54 2003-08-25
  • 打赏
  • 举报
回复
thank u
CMIC 2003-08-22
  • 打赏
  • 举报
回复
Button2.Text = "canreadpic"这句后加入
Me.Refresh();
Application.DoEvents;

16,547

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧