在窗口表中的AfterCheckRow事件中写入:这个表是
SQLQuery类型的
e.Table.ClearCheckedRows
e.row.Checked = True
dataTables("htmx").LoadFilter = "bh is null"
dataTables("htmx").Load
dataTables("tjfx").LoadFilter = "bh is null"
dataTables("tjfx").Load
Forms("窗口2").Controls("Panel2").Visible = False
Forms("窗口2").Controls("Table6").Visible = False
dataTables("clmx").LoadFilter = "lb is null"
dataTables("clmx").Load
Tables("窗口2_Table4").DataSource = DataTables("clmx")
Tables("cbjs").Filter = "zlh = '" & e.Row("指令号") & "'"
Forms("窗口2").Controls("RadioButton1").Checked = False
Forms("窗口2").Controls("RadioButton2").Checked = False
Forms("窗口2").Controls("RadioButton3").Checked = False
Forms("窗口2").Controls("TextBox6").Value = nothing
Forms("窗口2").Controls("TextBox7").Value = nothing
Forms("窗口2").Controls("TextBox8").Value = nothing
Forms("窗口2").Controls("RadioButton4").Checked = False
Forms("窗口2").Controls("RadioButton5").Checked = False
Forms("窗口2").Controls("RadioButton6").Checked = False
Forms("窗口2").Controls("RadioButton7").Checked = False
Forms("窗口2").Controls("RadioButton8").Checked = False
Forms("窗口2").Controls("TextBox1").Value = nothing
Forms("窗口2").Controls("TextBox2").Value = nothing
Forms("窗口2").Controls("TextBox3").Value = nothing
Forms("窗口2").Controls("TextBox4").Value = nothing
Forms("窗口2").Controls("TextBox5").Value = nothing
在之前版本是可以运行正常的
在这个版本中一点击复选框,就自动全部退出了
目前暂时改在CurrentChanged事件中凑合用一下
请老六看看,问题出在哪里,谢谢!