主题：导出内部数据表

ACCESS文件为什么传不了，显示错误：文件类型不正确！

“编码”列也不出来了！

是否跟外部数据表里_Identify列有关？

 C:\fakepath\采购管理台账.MDB

显示文件类型错误，数据库上传不了

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

 

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

 

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:采购管理台账.rar

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

 

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

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

这句没问题呀！

还是：

切换到普通用户时显示：采购管理台账不存在“自动编号”列！

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.10.9.1
错误所在事件：项目,LoadUserSetting
详细错误信息：
未设置对象变量或 With 块变量。

代码改成

 

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

另外：

foxtable表只可以增加行，不能插入行是怎么回事？

显示“此表不支持插入行功能”！

还有keydown设置了以下编码，在“备注”按回车，显示“不支持移动行”！

If e.keycode = keys.enter Then
    If e.Table.cols(e.Table.colsel).name = "采购定标管理_备注" Then
        Dim cr As Row = e.Table.rows(e.Table.position)
        Dim nr As Row = e.Table.addnew
        nr("序号") = cr("序号")
        nr("采购计划管理_采购计划编号") = cr("采购计划管理_采购计划编号")
        nr("采购计划管理_预算输入部门") = cr("采购计划管理_预算输入部门")
        nr("采购计划管理_需求部门") = cr("采购计划管理_需求部门")
        nr("采购计划管理_主要采购内容") = cr("采购计划管理_主要采购内容")
        nr("采购计划管理_预算输入时间") = cr("采购计划管理_预算输入时间")
        nr.move(cr.index+1)
        e.cancel = True
    End If
End If

参考

 

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