If e.Form.Controls("TextBox1").text = Nothing Then
Messagebox.Show("请输入待查生产计划编号!","提示") '手工录入的id
Return
Else
If Tables("生产计划总表").Rows.Count = 0 Then
forms("提示").open
DataTables("生产计划总表").LoadFilter = "计划编号 Like '%"& e.Form.Controls("TextBox1").text & "%'"
DataTables("生产计划总表").Load()
forms("提示").close
Else
For Each dr As Row In Tables("生产计划总表").Rows
If dr.Locked = False Then
messagebox.show("生产计划表还没有保存,请按[保存]按钮进行保存!!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
Next
forms("提示").open
DataTables("生产计划总表").LoadFilter = "计划编号 Like '%"& e.Form.Controls("TextBox1").text & "%'"
DataTables("生产计划总表").Load()
forms("提示").close
End If
End If
在查询生产计划时会对重新加载的数据行解锁，请问是什么原因呢？代码里就没有写解锁的代码啊，请指教！
[此贴子已经被作者于2015/7/3 14:49:59编辑过]
加好友 
发短信
Post By：2015/7/3 14:49:00 [只看该作者]
