Foxtable(狐表)用户栏目专家坐堂 → [求助]fill中的表问题


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

主题:[求助]fill中的表问题

帅哥哟,离线,有人找我吗?
blsu33
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2017/9/25 15:01:00 [只看该作者]

老师,
   采用表达式列(标注”新增“,”修改“),保存(btn 控件的click事件)下面绿色部分的应该怎么写简单呢
 Dim flt As String
Dim drnames() As String={"部门","姓名","密码"}
Dim tb As Table =Tables("窗口1_Table1")
Dim r As Row=tb.Current
Select Case r("bz")
    Case "修改"
        For Each drname As String In  drnames
            flt &=drname & "='" & r(drname) & "',"
        Next
        Dim cmd2 As New SQLCommand
        cmd2.C
        cmd2.CommandText ="UPDATE {用户} S ET " & flt.TrimEnd(",") & " where" & " [_Identify]=" & r("zbid")
        cmd2.ExecuteNonQuery()
        r("bz")=""
        tb.Current.Save()
    Case "新增"
        For Each drname As String In  drnames
            flt &=r(drname) & ","
        Next
        Dim cmd2 As New SQLCommand
        cmd2.C
        cmd2.commandtext = "Insert Into {用户} drnames() Values(flt.TrimEnd(","))"
        MessageBox.Show(cmd2.commandtext)
        cmd2.ExecuteNonQuery()
        r("bz")=""
        tb.Current.Save()
End Select
[此贴子已经被作者于2017/9/25 15:12:24编辑过]

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


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

循环获取列名 aa;循环获取每列的值 bb

 

然后写 "insert into {用户} (" & aa & ") values (" & bb & ")"


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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2017/9/25 16:00:00 [只看该作者]

老师,
  这是提示 是为什么呢 ?
 .NET Framework 版本:2.0.50727.3053
Foxtable 版本:2017.8.19.1
错误所在事件:
详细错误信息:
至少一个参数没有被指定值。

cmd2.ExecuteNonQuery()‘这句有问题?
[此贴子已经被作者于2017/9/25 16:00:24编辑过]

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


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

回复13楼,你列名写错了。弹出你生成的sql语句看看。


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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2017/9/25 16:27:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170925162206.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170925162303.png
图片点击可在新窗口打开查看


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


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

valus要加引号,如 valus ('生产部', '张三', '666')

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2017/9/25 16:35:00 [只看该作者]

恩已经成功了 
新增的行 查询表的行状态 还是红色的 tb.Current.Save() 命令不起作用。fill 进来的 怎么重新加载本行,怎么重新加载本表,重新fill ?
[此贴子已经被作者于2017/9/25 16:36:49编辑过]

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


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

以下是引用blsu33在2017/9/25 16:35:00的发言:
恩已经成功了 
新增的行 查询表的行状态 还是红色的 tb.Current.Save() 命令不起作用。fill 进来的 怎么重新加载本行,怎么重新加载本表,重新fill ?
[此贴子已经被作者于2017/9/25 16:36:49编辑过]

 

不能单行保存的,只能整体 tb.save

 

或者是 http://www.foxtable.com/webhelp/scr/2365.htm

 

无法重新加载本行,要刷新必须重新fill,或者是使用sqlcommand等查找得到数据后,赋值给对应行、对应的列。


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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2017/9/25 17:01:00 [只看该作者]

老师,
  15楼 的截图 表的列名 有 的列来自{用户} 这个表 有的来自{用户表}图片点击可在新窗口打开查看,是不是  只能用一个表 相应的去设计下了 (表名,列名),不能直接处理。

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


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

回复19楼,你必须区分开哪些列是哪个表的,不同表要分开处理。

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