主题：[求助]再提关于已发布程序旧版本程序回收问题

各位老师：

      当我用狐表做了某个程序后，写了程序版本号，但用户需要修改这个程序表结构或增加表，那么我用开发版加了表，并加进了可视化授权，通知了用户，如果用户使用新发布的程序就不会提示找不到新加的表，但用户忘记使用新发布的程序或故意使用旧程序，那么登录后先提示找不到新加的表，然后又提示

此主题相关图片如下：捕获.jpg

可视化授权部份失效了，用户可以得到某些列的不可编辑的编辑权限，请问各位老师，如果能避免改表了，用户不使用新版，旧版不能用或不出现错误提示？

以前提过用使用版本号强制用户升级，有老师指导加程序版本号验证。无奈是初学者，不会编代码T_T。能不能使用当出错时判断就打不开狐表呢？请各位老师指点

如果旧版本的程序没有加上版本检测，那是没有办法避免用户故意用旧版本的。

 

哦，那狐爸，能不能简单判断出现任何错误，狐表就不再继续加载表了呢？

您能不能帮指点下怎么判断版本检测 ？

我理解是不是在授权表里加一列，把这个表可视化授权都写上一个版本号，然后在loadusersetting中加判断，如果版本号对不上那就所有表不可见？是吗？

在AfterOpenproject事件中设置代码，检查版本号，不符就退出

好的 谢谢狐爸，我自己琢磨试试

Output.show("程序版本: " & My.Application.Info.Version.ToString)

  求狐爸帮忙啊，如何在 AfterOpenproject获取对应表名的版本号呢？

我在现在的程序中加了个本地表名叫【验证版本】，表有三列【表名】、【当前版本号】、【服务器记录程序版本号】，表名记录数据为这个狐表程序名为"A"，本表版本号为"1.0"，服务器记录程序版本号为动态索引写入的，当AfterOpenproject后，对应表名去到服务器中的【版本验证专用】表中对应表名，找到表名后把服务器中记录的【版本号】行写到那个本地表的【服务器记录程序版本号】列中。然后判断两个版本号是否一致，不一致就Syscmd.Project.Exit()。

 

我参考帮助中的代码：

 Dim cmd As New SQLCommand
    Dim dt As datatable

    Dim dr As DataRow = e.DataRow  '问题出在这儿，不让使用e.datarow，怎么写能定义【验证版本】表呢？
    cmd.C
    cmd.CommandText = "SELECT * From {版本验证专用} Where [表名] = '" &  dr("表名") & "'"

    dt = cmd.ExecuteReader
    If dt.DataRows.Count > 0 Then
       dr("服务器记录程序版本号") = dt.DataRows(0)("版本号")  
End If

 

狐爸能不能帮助给指点下？

blackzhu老师，这个是验证当前编的狐表程序的版本号吗？

 

是的

 

怎么获取自己发布项目的版本号？

好象以前有说过搞不清楚了。