主题：导出内部数据表

参考

 

http://www.foxtable.com/webhelp/scr/2297.htm

 

表达式列不存放在数据库里面的，每次打开项目的时候，自动生成的临时列。

1、开发者账号密码贴出来；

 

2、代码贴出来或者数据库发上来；

 

3、表达式列不存放在数据库里面的，每次打开项目的时候，自动生成的临时列。所以不能直接sql语句访问表达式列

1、mdb文件，你要打包成rar压缩包才能上传；

 

2、把表达式列改成数据列，表达式列不能作为加载条件

 

DataTables("采购管理台账").LoadFilter = "采购计划管理_招标采购负责人 = '" & User.Name & "'"

把表达式列改成数据列，表达式列不能作为加载条件

 

DataTables("采购管理台账").LoadFilter = "采购计划管理_招标采购负责人 = '" & User.Name & "'"

代码改成

 

If User.Name = "申誉" Then
    DataTables("采购管理台账").LoadFilter = ""
Else
    DataTables("采购管理台账").LoadFilter = "采购计划管理_招标采购负责人 = '" & User.Name & "'"
End If
DataTables("采购管理台账").Load()

For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If dr.IsNull("列名") Then
            If Tables.Contains(dr("表名")) Then
                Tables(dr("表名")).Visible = Not dr("不可见")
                Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
            End If
        Else
            If Tables.Contains(dr("表名")) AndAlso Tables(dr("表名")).cols.contains(dr("列名")) Then
                Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
                Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
            End If
        End If
    Next
End If

参考

 

http://www.foxtable.com/webhelp/scr/1797.htm

 

 

http://www.foxtable.com/webhelp/scr/2297.htm

 

 

把整个项目拷贝到自己电脑里面。打开，然后设计模板，设置好以后，拷贝到局域网的attachments文件夹里。

 

嗯嗯，是的。设计好再拷贝进去才行。