Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码


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

主题：代码
帅哥哟，离线，有人找我吗？
爱相随
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/9/11 17:01:00 [显示全部帖子]

老师，比如我有一张拆 迁合同台账表，每一个合同就对应一名拆 迁户，而申请资金可能是由若干拆 迁合同合并成一个数据。就是一个表的很多行，选择后点击按钮，合并生成另一个表的一行数据，能实现么？？

 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/9/11 17:11:00 [显示全部帖子]

列数确定，因为数量多，资金类型相同，所以将相同的合并成本笔资申请，

 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/9/12 10:06:00 [显示全部帖子]

老师，我的项目已经重定向到外部数据源了，然后我再在外部数据源的数据表里增加了一列“编辑者”列，以实现独占编辑目的，也按帮助进行了代码处理，但是，完成后“编辑者”列却不见，通过表结构查看也没看见，当双击某一行时，出现运行错误“Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLPHTB'。 确定它是否存在，以及它的名称的拼写是否正确。”
点击详细信息：
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.9.2.1
错误所在事件：
详细错误信息：
Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLPHTB'。 确定它是否存在，以及它的名称的拼写是否正确。

关闭后提示：此行可能已经被删除，无法编辑
老师，是什么情况呢，如果我已经把内部表转为外部数据源了，还能在外部数据源的数据表里进行开发、修改表结构等处理吗？？
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/9/12 10:11:00 [显示全部帖子]

如果再增加同名称的列，系统提示“已经存在同名称的列”

 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/9/12 10:15:00 [显示全部帖子]

还是因为代码中这个地方处理不对？Update {员工} 大括号中的“员工”是表名还是列名呢？？

Dim cmd As New SQLCommand
cmd.CommandText = "Update {员工} Set 编辑者 = Null Where 编辑者 = '" & User.Name & "'"
cmd.ExecuteNonQuery
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/9/12 10:37:00 [显示全部帖子]

哦，谢谢老师

 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/9/12 11:34:00 [显示全部帖子]

老师，红色代码有错，请帮助，谢谢
If User.IsRole("录入人") Then
    For Each r As Row In Tables("htB").GetCheckedRows
        If Tables("HTB").R.Col("HTLB") = "工程施工合同" Then
           Dim nma() As String = { "XMLB","XMBM","XMMC","XMGS","HTBH","HTMC","KSJM","KSMC","HTFYLB","HTJE","LJZFGCK","分项名称","分项概算","标段" } 'A表数据来源列
           Dim nmb() As String = { "XMLB","XMBM","XMMC","XMGS","HTBH","HTMC","KSJM","KSMC","FYLB","HTJE","LJYFJDK","分项名称","分项概算","标段" } 'B表数据接收列
           Dim dr As DataRow = DataTables("XMJDB").AddNew          
            For i As Integer = 0 To nma.Length - 1
              dr(nmb(i)) = r(nma(i))
          Next 
      End If
    Next
 End If
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/9/12 11:38:00 [显示全部帖子]

老师，不得行，是菜单CLICK事件的代码

 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/9/12 11:46:00 [显示全部帖子]

太麻烦老师了。。。

 回到顶部
总数 20 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询