Foxtable(狐表)用户栏目专家坐堂 → 无法执行命令窗口的命令


  共有2243人关注过本帖树形打印复制链接

主题:无法执行命令窗口的命令

美女呀,离线,留言给我吧!
dansh
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:47 积分:327 威望:0 精华:0 注册:2018/6/12 9:58:00
  发帖心情 Post By:2018/6/12 10:48:00 [只看该作者]

DBF文件上传不了,显示文件类型不正确,该如何上传呢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/12 10:49:00 [只看该作者]

以下是引用dansh在2018/6/12 10:48:00的发言:
DBF文件上传不了,显示文件类型不正确,该如何上传呢

 

上传foxtable的项目, .table的文件。


 回到顶部
美女呀,离线,留言给我吧!
dansh
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:47 积分:327 威望:0 精华:0 注册:2018/6/12 9:58:00
  发帖心情 Post By:2018/6/12 10:53:00 [只看该作者]

这样可以吗

 回到顶部
美女呀,离线,留言给我吧!
dansh
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:47 积分:327 威望:0 精华:0 注册:2018/6/12 9:58:00
  发帖心情 Post By:2018/6/12 10:55:00 [只看该作者]

怎么上传了,看不到附件

 回到顶部
美女呀,离线,留言给我吧!
dansh
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:47 积分:327 威望:0 精华:0 注册:2018/6/12 9:58:00
  发帖心情 Post By:2018/6/12 10:56:00 [只看该作者]

再发一次

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/12 10:58:00 [只看该作者]

请正确上传项目,看不到你上传的东西。

 回到顶部
美女呀,离线,留言给我吧!
dansh
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:47 积分:327 威望:0 精华:0 注册:2018/6/12 9:58:00
  发帖心情 Post By:2018/6/12 11:02:00 [只看该作者]

打包上传看行不行

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/12 11:05:00 [只看该作者]

用IE浏览器访问论坛吧,再上传项目。

 回到顶部
美女呀,离线,留言给我吧!
dansh
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:47 积分:327 威望:0 精华:0 注册:2018/6/12 9:58:00
  发帖心情 Post By:2018/6/12 11:16:00 [只看该作者]

现在用的是IE

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/12 11:40:00 [只看该作者]

bug,如果列数过多的情况下,导出失败。用下面代码导出试试

 

Dim dlg As new SaveFileDialog
dlg.FileName = CurrentTable.Name
If dlg.ShowDialog = DialogResult.OK Then
    Dim str_oleConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileSys.GetParentPath(dlg.FileName)  & ";Extended Properties=dBASE IV;"
    Dim ole_conn As New System.Data.OleDb.OleDbConnection(str_oleConn)
    Try
        ole_conn.Open()
        Dim str As String = ""
        For Each c As Col In CurrentTable.cols
            str &= c.name & " char(16),"
        Next
        output.show(str)
        Dim cmd1 As New System.Data.OleDb.OleDbCommand("Create Table " &  FileSys.GetName(dlg.FileName) & " (" & str.Trim(",") & ")", ole_conn)
        cmd1.ExecuteNonQuery()
       
        For Each r As Row In CurrentTable.rows
            str = ""
            For Each c As Col In CurrentTable.cols
                str &= "'" & r(c.name) & "',"
            next
            Dim cmd2 As New System.Data.OleDb.OleDbCommand("Insert Into " & FileSys.GetName(dlg.FileName) & " values (" & str.Trim(",")  & ")", ole_conn)
            output.show(str)
            cmd2.ExecuteNonQuery()
        next
        msgbox("保存成功")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        ole_conn.Close()
    End Try
   
End If


 回到顶部
总数 21 上一页 1 2 3 下一页