专家坐堂-动态刷新不更新的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim sx As DataRow = DataTables("机台设置").sqlfind("机台名称= \'" & jt & "\'")

If sx IsNot Nothing Then

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "upd&te {机台设置} set 刷新=1 WHERE 机台名称 = \'" & jt & "\'"

cmd.ExecuteNonQuery()

DataTables("机台设置").Load()

end if

B主机的timetick事件 (检测sql中的数值是否为1，如果是就刷新表，然后把数值归0）

Dim sx As DataRow = DataTables("机台设置").SQLFind("机台名称= \'" & _machine & "\'")

Dim val As Integer

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "Se/ect 刷新 From {机台设置} Where 机台名称= \'" & _machine & "\'"

val = cmd.ExecuteScalar()

If sx IsNot Nothing Then

If val = 1 Then

DataTables("排单表").Load

Tables("排单表").Filter = "[机台] = \'" & _machine & "\' and 数量>=已入库数量"

Tables("排单表").Sort = "优先级 DESC"

Dim cmd1 As New SQLCommand

cmd1.C

cmd1.CommandText = "upd&te {机台设置} set 刷新 =0 Where 机台名称= \'" & _machine & "\'"

cmd1.ExecuteNonQuery()

DataTables("机台设置").Load()

End If

问题是排单表并没有刷新？跟踪了sql表，发现A主机数据变动的时候，数值有变1，然后B主机有重置数值，但是不刷新数据？