以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何快速输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151448)
--  作者：13796361423
--  发布时间：2020/6/23 15:24:00
--  如何快速输入

DataTables("初三中考").ReplaceFor("代码","汤93","学校名称=\'汤原县第一中学\'")
DataTables("初三中考").ReplaceFor("代码","汤92","学校名称=\'汤原县第二中学\'")
DataTables("初三中考").ReplaceFor("代码","汤91","学校名称=\'汤原县香兰镇中学\'")
DataTables("初三中考").ReplaceFor("代码","汤90","学校名称=\'汤原县太平川乡学校\'")
DataTables("初三中考").ReplaceFor("代码","汤9","学校名称=\'汤原县黑金河学校\'")
DataTables("初三中考").ReplaceFor("代码","汤8","学校名称=\'汤原县永发乡学校\'")
DataTables("初三中考").ReplaceFor("代码","汤7","学校名称=\'汤原县鹤立镇中学\'")
DataTables("初三中考").ReplaceFor("代码","汤5","学校名称=\'汤原县吉祥乡学校\'")
DataTables("初三中考").ReplaceFor("代码","汤4","学校名称=\'汤原县振兴乡学校\'")
DataTables("初三中考").ReplaceFor("代码","汤6","学校名称=\'鹤立林业局第一中学\'")
DataTables("初三中考").ReplaceFor("代码","汤2","学校名称=\'黑龙江省汤原农场学校\'")
DataTables("初三中考").ReplaceFor("代码","汤1","学校名称=\'黑龙江省梧桐河农场学校\'")
DataTables("初三中考").ReplaceFor("代码","汤3","学校名称=\'汤原县朝鲜族学校\'")

 

 

以上这些命令，总是在命令窗口里输入， 能不能把这些命令放在表属性的某个位置，打开表时自动替换，不用我总输入了
--  作者：有点蓝
--  发布时间：2020/6/23 15:46:00
--  
到datacolchanged事件处理，比如：

if e.datacol.name = "学校名称" then
select case  e.newvalue 
case "汤原县第一中学" then
e.datarow("代码") = "汤93"
case "汤原县第二中学" then
e.datarow("代码") = "汤92"
end select
end if

比较合理的方法应该是建一个字典表，存储学校的编码，通过查表方式引用数据：http://www.foxtable.com/webhelp/topics/1451.htm