老师，可以了，另老师，如下代码，明明数据库里的已经结案了，C=1了，不应该跳"已结案.."吗？为什么还老是可以"结案"且u pdate 数据，我的IF语句写错了吗？请帮分析下。谢谢！
Dim c1 As String = Forms("测试窗口").Controls("TextBox29" ).Value
Dim df1 As String = Forms("测试窗口").Controls("TextBox19" ).Value
Dim bh As String = Forms("测试窗口").Controls("TextBox39").Value
Dim wz As Integer = Tables("项目测试数据看板").FindRow("项目编号 = '" & bh & "'")
If Tables("项目测试数据看板").Current("C")=0 Then
Dim cmd1 As New SQLCommand
cmd1.C
cmd1.CommandText = "u pdate {测试数据库} set [C] ='"& c1 &"',[DF]='"& df1 &"' where 项目编号 = '" & bh & "' and 样本编号 =1"
cmd1.ExecuteNonQuery
Dim cmd2 As New SQLCommand '结案单小项数据测量
cmd2.C
cmd2.CommandText = "u pdate {项目测试数据看板} set [C] =1,[DF]=1 where 项目编号 = '" & bh & "' "
cmd2.ExecuteNonQuery
MessageBox.Show("结案成功!")
Else
MessageBox.Show("已结案,不能再次操作!")
Return
End If
DataTables("测试数据库").save()
DataTables("测试数据库").load()
DataTables("项目测试数据看板").save()
DataTables("项目测试数据看板").load()
If wz >=0 Then
Tables("项目测试数据看板").Position = wz
End If
加好友 
发短信
Post By：2018/3/12 18:16:00 [只看该作者]
